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Preface 


This book introduces the basic concepts of computer 
programming to a student with no previous exposure to computers. 
The emphasis is on problem solving with computers. А computer 
language is essential to illustrate problem solving. Fortran has 
been chosen as the language as it is a language available for all 
general purpose computers and has been widely accepted by 
computer users. 


The first edition of this book was published in 1969 and 
became very popular with students. It was revised frequently and 
a new edition incorporating advances in Fortran was published in 
1976. Since then an important development which has taken place 
is the advent of IBM PC compatible desk top computers. These 
computers are widely used in colleges all over India. This book 
has thus been rewritten and illustrates use of Fortran 77 on IBM 
PC. The version used is the popular version developed by 
Microsoft Inc. The non-machine dependent features are 
emphasised. Thus the language described is applicable to all 
computers with an American National Standard Fortran 77. 


This book has been thoroughly class room tested over the 
past many years. Every program appearing in the text has been 
executed on IBM PC compatible computer. To eliminate errors the 
print out obtained from the computer for each of the illustrative 
programs has been reproduced by photo-offset in the text. 


A book of this type naturally gained a number of ideas from 
previous books on this subject. I thank all these authors, too 
numerous to acknowledge individually. I would like to thank my 
colleague Prof. Н.М. Mahabala whose critical comments of the 
first edition set the tone and style of subsequent editions of 
this book. I would like to thank Ms. Jayashree Dharmapadam and 
Ms. Leela Padmanabhan, computer science students, at the Indian 
Institute of Science who entered the programs in a computer and 
tested them. Thanks are due to Mr. S.K. Nandy for meticulously 
printing the word processor output and checking them. I thank Mr. 
K.A. Sreenivasan for entering the manuscript on a Word processor. 
Thanks are due to Ms. Naga Venkatramana for assistance in getting 
the figures drawn on a computer based drafting system. 


Finally, I thank my wife, Dharma, to whom this book is 
dedicated, for drawing all the figures in the book, proof reading 
the manuscript and cheerfully devoting herself to this project. 
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Chapter I 
Computer Programs 


Preparing a program for a digital computer is analogous to 
giving a detailed set of instructions to a clerk when he is asked 
to do a specified set of calculations. 


Suppose we give a clerk the task of making a bill of sale. 
Fig.1.1 depicts the documents given to the clerk. - 


List A List B 


Fig. 1.1 Bill Preparation Example 


The instructions we give him are as follows: 


қ АУРЫ О ое сод. 
2. ить E is the price of the item and И вп 
3 tari by column 3 (of Bill)«and enter іп the 
3 e РЕ. ши till all the items on List А have 
" tote Nr зы given dp" column d and enter against grand 


A number of salient features of 
com ms 
brought out by the above example. They are: Шы nie het 


21, А program consists of а list of detailed instructions to 
1 


be followed exactly in a given sequence. 


2 Each instruction must be clear and lead to a definite 
action. 
3 Input data is to be provided with the program. In the 


example cited above the data consists of lists A and B. 


4 A number of arithmetic calculations like 
; multiplication are to be performed. Also some simple "Yes" 
or "No' type decisions are to be taken. In the example, in 
Step 4 the clerk has to decide whether all items from List A 

have been entered in the Bill before he goes to Step 5. 


addition and 


5. Intermediate results are to be stored. In the example 
column 4 of Bill has intermediate results. 

6. The results of the calculation are to be recorded and given 
as output. In the example the sum of column 4 of the Bill 
is the output. 


Ts The structure 


problem does not change when the in 
example the set of instructions 


It would make our life easy if raw data for a problem could 
be fed into the computer and the computer could somehow analyse 
the problem, arrive at the correct method of solution, follow the 
method and produce the desired answers. 


No computer can do this. We cannot give a computer vague 
instructions about what we want it to do. 


1 ў А computer is designed 
to obey a limited set of Specific instructions. 


gs have intuitive capabilities the digital 
computer does not. 


The program written for a computer must ultimately be а set 
of machine instructions. It is this fact that requires us to 
analyse and organise our problems for computer solution to an 
extent that other methods do not demand. 


тре, тешек do IRSE Specify by means of recise 
instructions exactly what he wants the computer to do m = 
order in which it is to be done. 


Chapter Il 
Flow Charting 


Certain amount of planning is necessary before any problem 
is attempted. This planning is necessary whether it is a problem 
in mathematics or an everyday problem like shopping. Before 
going on a shopping trip one has to prepare a list of items to be 
purchased, the order in which various shops are to be visited, 
allocate time and money, etc. Most of this planning is done 
unconsciously. When a problem is to be solved on а computer, 
however, it is essential to work out in detail all the steps in 
the solution procedure and the order in which these steps are to 
be carried out. This step by step procedure to solve a problem 
is known as an algorithm. 


The formulation of algorithms is aided by the use of flow 
charts. A flow chart is a picture which shows the sequence 


ы 2 іп 
which data are read, computing is performed, decisions are made 
and results are obtained. Flow charts are useful both for 


planning the solution to a problem and for documenting the method 
used. In this chapter we will show with a number of examples how 
one develops a flow chart to solve a problem. 

2.1 A Flow Chart 

EIU NULLA LLL om 


Example 2.1 


In this section we will evolve a flow chart to 
equation 


Solve the 


ax +b = с (a # 0) 
The steps in the solution are: 
Step 1: Read the values of a,b,c 
Step 2: Compute (c-b)/a and set x = (c-b)/a 
Step 3: Write the value of x 
Step 4: Stop. 


These steps are pictorially depicted as the flow chart of 
3 


4 


Fig.2.1. The shapes of the various blocks used in the flow chart 
are the same as those recommended by the International Standards 
Organisation. 


The first block in the flow chart, labelled START, signals 
the beginning of the procedure. А rectangle with rounded edges 
is used to depict START and STOP operations in a flow chart. The 
next operation to be performed is to read the values of the three 
coefficients a,b,c. In the flow chart a parallelogram is used to 
depict the operation of reading in of data. A line with ап 
arrow connects any two blocks in a flow chart. Beginning at 
START we follow the arrow and perform subsequent operations. Іп 
the next block in the flow chart we compute (c-b)/a and set x to 
this value. The symbol €- in the chart is to be read "becomes". 
That is, we have to read: "x becomes (c-b)/a". This block is a 
computational block. A rectangle is used to depict it. The next 
block is а parallelogram in which is written 


х WRITE х. This 
states that the value of x is to be printed out. After printing 
х the next block in the flow chart is a signal to s 


top. 


Stop 


Fig. 2.1 Flow chart for solving equation ах+ђ=с 


2.2 А Simple Model of a Computer 
б озек ер а VORputcr. 


The model of a computer (Fig. 2.2) to be presented in this 
section is simple. It is sufficient (for the present purposes) to 
explain the way in which algorithms are executed by a computer. 
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The MEMORY of the computer is the most important part of 


this model. It is assumed that a part of the memory is reserved 
to store the flow chart. The rest of the memory consists of а 
number of boxes or pigeon holes. Each box can be given a name. 


Inside each box a number may be stored. 


Another block in this model is labelled OBEDIENT SERVANT. 
This obedient servant is capable of reading a flow chart and 
faithfully following each of the instructions in db The exact 
way in which each instruction in the flow chart 15 interpreted 
will be explained later. 


The other units are the INPUT UNIT through which data оп 
which computations are to be performed are read and the OUTPUT 
UNIT in which the answers are printed. The PROCESSING UNIT is 
used to compute and also to compare numbers. 


MEMORY 


FLOW CHRRT 
(Algorithm) 
BOXES FOR DATA STORAGE Ес 


ai y 
XR s th 


PROCESSING UNIT 


OBEDIENT 
SERVRNT 


Fig. 2.2 A simple model of a computer 


We will now use our simple model of t 

the example presented in the last section. СА Mach te s ed ти 
problem the flow chart is first obtained. This chart is stored 
in the memory. The data required for solving the meee are 
kept ready at the input unit and arranged in the кет in Which 
they will be needed by the flow chart. Thus in this example if 
the values of a,b,c, аге 5,3,2 then these three numbers are kept 
queued up and ready at the input unit. 


The "obedient servant" now starts from the START block in 
the flow chart. He gets all the units of the computer ready to 
follow his instructions. He then follows the arrow leading from 
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the START block. The next block tells the servant to "READ 
a,b,c". The way in which this command is to be interpreted is: 


"Label three boxes in memory a,b,c. Read the first number 
queued up at the input unit and place it in the box labelled a. 
Advance the queue at the input unit by one place. Take the 
number at the top of the queue and place it in the box labelled 
b. Repeat this procedure and place the number presently at the 
top of the queue in the box labelled c". 


The procedure is illustrated in FIGS AI 


Input Command Input Unit 
Read a.b,c 


Fig. 2.3 Illustrating reading and Storing numbers 


p ollowing Eho flow chart we now reach а block in which 15 
written x €- (c-b)/a. This is interpreted as take the numbe 
found іп boxes with labels a,b,c. ASF the S GN sin m re 
compute the number (c-b)/a. Assign a name or label ге uni o 
box. Into that box place the computed number" х to a memory 

Thus in this example the Processin i А 
A 0 unit 
(2-3)/5 tw МА cuo ү а MY box with piel c Me eke 
end of this step е numbers found in various memory b у 
shiowm інен? Y boxes are as 


DM 
a b c x 


Z 


Following the arrow in the flow chart the obedient servant 
next comes to a block with the command WRITE X. “This is 
interpreted as "ask the output unit to write the number found in 
the memory box with label x". Thus -0.2 is written. The next 
block asks the obedient servant to stop and he stops. 


2.3 Flow Charting Examples 


In the last section we deliberately chose a simple example 
to clarify basic ideas. We will now modify the example so that 
it becomes necessary to check the value of a number and based on 
the outcome’ follow different paths in a flow chart. 


Example 2.2 
In Example 2.1 we assumed that a = 0. We now modify the 
algorithm to account for the case when а = 0. The modified 


algorithm is: 

Step 1: Read the values of a,b,c 

Step 2: If a = 0 write "Incorrect equation,no solution" and stop 
Step 3: x 4 (c-b)/a 

Step 4: Write the value of x 


Step 5: Stop 


The above algorithm is shown as a flow chart in ri 2.4 W 
will now use our simple model of the computer and boots 3 nein 
flow chart is executed. Assume that the values of a a e 
0,5,6. As in the previous example the “obedient Servant" s wee 
from the START block in the flow chart. Following Che ar ae 
the START block the "obedient servant" reaches the blo MES EAD 
a,b,c". As before three boxes in memory are Tabalica ке 
respectively. Тће number 0 is read and Stored in mamo d a s 
in box b and 6 in box c. Following the arrows ме У Бох m 
diamond shaped box in which is written "Ig Aes Ори i E e 
chart а diamond shaped box is used to show а «Опра s а ow 
query. Two lines with arrows pointing outwards tea S= wies a 
If the answer to the query "Is а = 0?" is "Yes" $ ЕВЕ the 
"obedient servant" follows the exit path marked "yes" enu 
he follows the path marked "No". ез". Otherwise 

In this example a - 0, thus the "obedi " 
exit path marked "Yes" and reaches the block whl вв жекені е 
"Incorrect Equation, No Solution". Tbis message їз written 
The next command is to STOP. В 


If a # 0 then the exit marked "No" is foilor. Jb 
š y the 
"obedient servant" which leads to the box x =. (сула: ега = 


Read 


Write 
"Incorrect Equation, 


No solution" 


Fig. 2.4 Flow chart for Example 2.2 


2, b = 5 and c = 6 then the "obedient servant" computes (c-b)/a 
obtaining 0.5 апа stores it in the memory box labelled "x". 


x 
After this the next block encountered is "WRITE Ж The 


"obedient servant" writes on the output device the contents of 
memory box x which is 0.5. The next command is to STOP. 


Example 2.3 


In this example we will evolve a flow chart to pick the 
largest of three numbers. The procedure we will follow is to 
first read the three numbers into three locations (in memory) 
labelled аз А,В,С. We then compare the contents of A with the 
contents of B. If À is larger then it is compared with C. If A 
is again larger then it is declared as the largest number. Else 
C is the largest number. (Observe that instead of every time 
saying contents of À, B etc., we are omitting the word "contents 
of". When we say compare B with C we mean compare the contents 
of B with the contents of C. From now on we will use this 
abbreviation.) 


If in the first step B is found larger than A then B is 
compared with C. The larger of these is the largest number. 


The above description is verbose. It is expressed in a 
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concise easily understood flow chart of Fig.2.5. We will follow 
this flow chart as an "obedient servant" would and see if it does 
the job. We will assume that the number to be compared are -8, 
10 and 5 and these are queued up at the input unit. 


After START, the flow chart commands that -8, 10, 5 be read 
o memory locations labelled A,B,C as shown below: 


AMET TS 


Qa m B С 


int 


Following the arrow we reach the diamond shaped box in which 
is written "Is А > B?" In a flow chart a diamond shaped box 15 
used to show a comparison or a query. A number of lines with 
arrow pointing outwards leave the box. The number of. exits 
depends on the possible answers to the query. In the flow chart 
of Fig. 2.5 the query can have only two outcomes, namely, Yes or 
No. If А > B then we follow the line labelled "Yes" and if А УВ 
then we follow the line labelled "No". 


No No 


Fig. 2-5 Flow chart to pick largest of three numbers 
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With the set of values of A,B,C in this example А УВ. Thus 
we follow the line labelled "No" and reach the diamond shaped 
block which asks the question "Is B > C?" As В = 10 and с = 5, B 
is greater than C. Thus we take the exit labelled "Yes". This 
leads to the next block which says "WRITE B". Thus the contents 
of B, namely 10 is printed. The next command is to STOP. 


The student is urged to trace the flow chart with a number 


of other sets of valües of A,B,C to make sure that the flow chart 
is correct. 


The procedure given in the Example 2.3 is simple but it does 
not lend itself to generalization. For instance, if the largest 
of 4 numbers is to be picked the chart will need 4 more 
comparisons. The flow chart will rapidly become very long as the 
number of items to be compared is increased. We thus need 
another strategy if we want to pick the biggest of a large set of 


numbers. We will thus evolve an alternate strategy for this case 
and present it as the next example. 


Example 2.4 


The problem is to Pick the largest of four numbers АВС р. 


Suppose the numbers аге (3,6,-4,4) we will adopt the 
following strategy (see Fig.2.6). We begin with the first number 
in the list and call it the largest number and store it 


in. 58 
memory Бох labelled "BIG" (as it is the largest number іп the 
list seen so far). Thus 3 will be stored in a memory box 
labelled BIG. The next number stored in В, namely, 6 is now 
compared with the number 3 Stored in BIG. As 6›3, the Yes path 
is followed and the humber 6 is stored in BIG. The next decision 
box asks if -4 (stored in C) is »6 (stored in BIG). As the 


answer is "No", the NO path is followed reaching the decision box 
with the query "Is D»BIG?". The number stored in D is 4 and it 
is smaller than 6 Stored in BIG. The answer is thus "No". 
Following this path the box "WRITE BIG" is reached which writes 
the number 6 stored in BIG as the answer. The numbers stored in 


the various memory boxes as the obedient servant follows the flow 
chart is given in Table 2.1. 


This strategy is different from the last one but is still 
not generalized to find the biggest of Say 10 numbers. This 
strategy will involve nine decision boxes which will 


ask Is 
B>BIG?, 18: CBIG? 2.52. Із J»BIG? (J stores the tenth digit). 
We will thus have to generalize it to find the largest of N 
numbers where М 15 an arbitrary integer. This generalized 


procedure is developed next. 


Fig. 


2.6 


Flow chart for picking largest of Eo 


numbers 


ST. 


Table 2.1 : Tracing Flow Chart of Fig.2.6 
[EP Memory Contents 
box of memory 
label box 


Instruction 


in Flow Chart Action Performed 


All Units made 
ready 

Four numbers from 
input unit read and 
stored in memory 
boxes labelled A,B, 
C,D respectively 
IG <= А Number stored in BIG 
memory box А co- 
pied to memory 
box labelled BIG 
IS B>BIG? Number stored in 
memory box B com- 
pared with that in 
BIG. Result of 
comparison "yes". 
Path named "yes" 
in flow chart 
taken 

Number stored in BIG 
memory box with 
label B stored in 
memory box with, 
label BIG 

IS C>BIG? Number stored in 
memory box with 
label C compared 
with that in BIG. 
Result of com- 
parison "No". 
Path named No in 
flow chart taken 


gau» 


IG? 5 
18 D»B memory box with 


label D compared 
with that in BIG. 
Result of com- 
parison "No". 
Path named No in 
flow chart taken 


Contents Status of 

of memory numbers in 
Instruction box input unit 
in Flow. Chart| Action Performed 


Contents of memory Output 
box with label BIG written 6 
written on the 

output unit 


A11 units stopped 


Example 2.5 


The problem is to pick the largest of a set of N numbers. 


Suppose the numbers are (3, -8, 29, 9, 4) we will adopt the 
same strategy as in the last example. We begin with the first 
number in the list and call it the largest number and store it in 
a memory location called BIG (as it is the largest number in the 
list encountered зо far). We will compare it with the next 
number and store the larger of the two in BIG. We will compare 
BIG with the next number and replace BIG by the larger of these 
two numbers. Thus BIG will contain the largest number in the 
list encountered so far. Ме will continue this procedure till we 
exhaust all the items in the list. 


This method is shown as a flow chart in Fig. 2.7. The 
numbers queued up at the input unit are (3, -8, 9, 9, 4). If we 
obediently follow the flow chart we 5ee that the first number 
waiting at the input unit is read into BIG. Thus BIG contains 3. 
Following the flow chart we come to the command READ Xx. As 3 
has been already read in, the number at the top of the queue of 
the input unit is -8. This is read into X. The Contents of BIG 
and X as we follow the flow chart are given in Table 2.2. We see 
from the table that BIG contains at all times the largest number 
encountered so far. 


There is, however, one problem with this flow ы aoe It 
does not tell us when to STOP! The procedure should, of course,. 
stop when all the N numbers have been compared. One way of 
determining this is to count each number as it is read, and stop 
when the total count of numbers read is equal to the number of 
items in the list. The flow chart of Fig.2.7 is improved, апа 
shown as Е19.2.8.. Observe that the first number in the queue at 
the input unit is 5 which is the total number of items to be 
compared. This 15 followed by the Set of numbers to be compared. 
Following the flow chart obediently We obtain the values in 
various variables as shown in Table 2.3, 
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Fig. 2.7 Development of flow chart to pick largest of N numbers 


We see from the table that the biggest 
obtained by the. flow chart. 92 сы ана aes Я, 


Observe the way іп which the numbers read in are counted and 
compared with the total number of items in the set of numbers. 
This technique of repeating a certain set of operations a fixed 
number of times is very important in formulating flow charts. 


In the method proposed above we should know the total number 
of items in the set. Sometimes we may not know this or it may be 
inconvenient to find it. In such cases we use a different 
technique. A flow chart using this technique is given in Fig. 
2-5. In this method we mark the end of the list of numbers by 

‘nus infinity (-оө) approximated by the largest negative number 
minu e stored in the computer. Às soon as we read an item 


4 an b DUM ak! ИЕ Е 
dti examine if it is -oo. Only if it is #-оо we will proceed 


(*pauoo) 
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Fig. 2.8 Flow chart to pick the largest of N numbers 


further. Else че will print the current largest number and stop. 
The student 15 urged to obtain the table of values in variable 
names by tracing the flow chart. 


Example 2.6 


Let us consider as the next example a flow chart for solving 
a quadratic equation, ах“ + bx + c = 0. For a general problem 
the coefficients a,b,c can assume any set of real values. We 
should thus enumerate all the possible cases and take appropriate 
actions. Besides this it is also necessary to print messages 
corresponding to the various cases. Such a flow chart is given in 


("рачоз) 
LNAOD 
реттэает ход Алошеш T+2LNNOO 
@ k LNO00D jo SQZUSRZUOD OF рәрре Т => под L 
X UT рәлозѕ ndup зе з аза 
v'6'6 9- £ x ənənb jo doa 3е деашпк X AYAN 9 
"алецо ы 
МОТІ чтчәхңезчзеа „ом, 
° ON. TƏMSUV (¿S=T SI) 
‘N UT ләдшпи y} ™ 
рәлеашоо пор UT ләдшпқ éN=LNNOD SI G 
LNNOD 
реттэает ход Алошәш 
I z 14002 ит рәлоз5 Т 344235405 T Э №105 ӯ 
ота озит 
€ - ста perdoo x UT ләдшп\ү X — DI € 
Атэлтзрэа$эл X pue 
N рэттэает sexoq Алошеш ur 
€ - X рәлоҙв pue peer зтип 3ndur 
/6'6'8- С - № шол} злэашпи омз 35274 X'N avs © 
еса КЕЧ Ареэл эреш sqtun ITV 445$ t 
тәгіу |əzojəg этаетлел) Алошәш days 
ит ход JO эшем ur рәшлојләа чотіоуү ахецр MOTT ит аәз< 


[arun ndup 
oua 38 езер 
то 513235 


ход Алошэш 
yo sauəquoo 


g'z'Dbrà4 JO 32лвЦ2 моту eua битрель : 670 STqeL 


I9 


(“раиоо) 
| X OJUT рвол jndur је 
V 6 6 X 9nenb Jo doz} је лэашин X аучч 9 
uexej u3ed „ом, 
„ОМ, JƏMSUY ¿G=Ç€ STI éN=LNNOD SI S 
214 
6 € ТЯ O3UT perdoo x ит aequnw X > Эта 6 
аддецо MOTI 
ЧТ Чэхе3 u3jed.,sa9A, 
„ӘД, хем5зи ¿ç < 6 SI СОТ < X SI 8 
L-LNüOO 
£ 6 LNNOOD LNNOD O3 рәрре Т -> ШМПОО L 
X UT рәлозѕ зпаит је 
5'6 6 8— X ənənb Јо doq je azequnw X ava 9 
“чәҳез Ч3РА „ом, 
„ОМ, 'deMsuv (26-2 SI) 
"М ЧЕ adequnu u3rA 
рәлеашоо INNO) ut 3iequnw éN=LNNOD SI S 
ç чемезј Чзеа и ON aa 
о ОМа "дем5ит (¿€ <8—) 
‘SIG UT ләдшпи Ччатм 
peaeduoo Xx ur лодшптм e9IG« X SIE 8 
19337 | әлотәя этаетдел) Алошәш Яэ3 5 
run зпаит UT ход Jo зшем ит рошлојлеа uot jody адецо MOTI UT days 
943 3е езер ход Алошәш 


10 snqeqs 10 sauəquoo 


рэааоз$ 


J sarun ТТУ 40415 TT 
| | этип 
іп4дпо битѕп 214 
6 реттедет ход Алошәш 
зпазпо | | jo quəquoo әзтлм SIg == от 
1 uexe3 Ч324 ,6ӘД, 
“SIA, AeMsuV éG-G SI éN-LNnOO SI S 
eee eee ЦЕ ae ت‎ = DRE 2. = 4---- 
| чемез u3ed,;oN, 
| “AON, XeMsuV 26 < 7 SI гэта < X SI 8 
CIIM 7722722 4--------4--------------------- 2 aan n E Re d eee eee 
T+LNN0D 
S 4 LNñ0OO LNNOD оз рәрре т = мод 4 
“== == Елени ا کج کے ےا‎ ee کے ہے کے ی سے کے‎ === == 
Г Г X озит реэл ndug зе 1 1 
“ТІМ 4 | 6 x L enenb go do} 3? zəqunN 1 X ачач 9 
uae} U3Ed „ом. ] 
| | ‘AON, TemMsuy ёб=ў SI éN=LNNOD SI © 
у *uexe43 u3ed „ом, T 
L „ОМ. хом5зит 26 < 6 SI 8914< X SI 8 
------------- жс ее =——— J.T... RF. F 
T+ELNNOD 
7 t LNAOD ZLNNOD оз рерре T — JNNOD E 
ав s cca ЕЕЕ 
1933X | глојоч этаетлел) Алошәш deas 
arun ndup ит ход зо әшең чт решлојлед чотзоү Злечо моту ит de3 
әці qe етер ход Клошәш 


20 зпа235 | jo sauəquoo 


Input 3,-8,9,9,4, c 


Fig. 2.9 Flowchart to pick the 1 
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Example 2.7 


In this example we will consider a problem which іпуо1 
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OPER 


d €—(b? -4ac) 


d €— 1-90 


Write message 
"Linear Equation 
One Root* 


Write message 
“Real Roots’ 


Write message 


“Complex Conjugate 
Roots’ 


ШЕ 


Stop 


Write message 
“Real Part’ 


Write message 


2.10 Flow chart to solve a quadratic equation 
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complex logic. Such a problem is better analysed using a table 
called a decision table. 


The rules for declaring the results in an examination are as 
follows. If а student gets 50% or more in the main subject and 
40% or more in the ancillary subject, he passes. ТЕ he gets less 
than 50% in the main subject he must get 50% or more in the 
ancillary subject to pass. However, the minimum passing marks is 
40% in the main subject. If а student gets 60% or more in the 
main subject he 1з allowed to appear only in the ancillary 
subject if the ancillary marks fall below 40%. There are, 
however, a group of students in the class who are granted special 
consideration. Their pass percentage is 40% in the main and 40% 
in the ancillary. If they get less than 40% in the ancillary they 
are allowed to repeat that subject only. 


Reading the word statement of the Problem we first identify 
the conditions which affect the results. In this problem the 
conditions which determine the results are: 


1x Marks in the main subject 
27 Marks in the ancillary subject 
3 Whether the student is granted à Special consideration 


The outcomes or actions to be taken based on. the conditions are: 


ДЕР Pass a student 
2. Fail a student 
Bis Ask a student to repeat the ancillary subject 


Once the conditions and actions ағыта 
enumerate all the rules. Sometimes the word E san 
clear and we may have to use our own interpretatio e RE 
instance, in this problem the last rule states that AE, et 
(special students) get less than 40% in the амеба Tact, iode E 
allowed to repeat that subject only". Does this mean Ha. 521 
subject marks аге irrelevant? Опе may ask the one peus 
formulated the rules. More often we have to use our jud riis In 
this case our commonsense dictates that а minimum of 405 та be 
required in the main subject also. wou 


Using the conditions and actions listed in th 
enumerate all the rules. This is given as Table 2 4 UMS paca wa 
row opposite an action means "do the action", xm 


А `-' against an action means "don^t do NI NT] 

f F шәп t d th IL. ПЫ 

student is urged to obtain a flow chart cortea в tc ae 
decision table (Table 2.4) and compare it with the Gane. 
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Table 2.4 А Decision Table for Declaring Results of an Examination 


CONDITIONS 
Main Marks % 250 240 260 >40 240 Е 
Anc. Marks % 240 250 «40 >40 <40 L 
Special consi- No No No Yes Yes S 

deration 
E 

ACTIONS 

Pass x x - x = 2 
Repeat Ancillary - - x - x = 
Fail - = = 3 M ex 


SUMMARY 


In this chapter we illustrated through a number of examples 
how flow charts are obtained. Ме will now summarise the main 
points which а student should keep in mind in developing flow 
charts. 


2; 2 А flow chart operates on one or more data elements. These 
data elements may be read from an input unit or may be given 
a value in a processing step. For example, in .Fig. 2.8 N 
and X are read from an input unit. The variable COUNT is 
given a value of 1 in a processing step. Normally variables 
which are constant for a procedure are set internally. They 
are said to be initialized internally. Data which are 
applicable for the class of problems being solved by the 
flow chart are read from the input unit. 


22 А flow chart has one or more outputs. Іп Fig. 2.8 BIG is an 
output. Ouputs are essentially answers to the problem. 

4, А flow chart should terminate after a finite number of 
steps. If it does not terminate then there is some logical 


mistake in formulating the flow chart. An example of a non- 
terminating flow chart is given in Fig. 2.7. This was later 
developed into the terminating flow chart of Fig. 2.8 


4. We should ensure that each step in a flow chart should lead 
to а definite result. ‚Кок example, in Fig. 2.1 the step 
x < (c-b)/a will not give an answer if a = 0. Whenever 
there is a possibility of a step not giving an answer the 


flow chart should be modified. The flow chart of Fig. 2.1 
was modified in Fig.2.3. 


Each step in a flow chart should be an elementary operation 
which a person should be able to perform with paper and 
pencil (given enough time). 


Whenever a problem is given one should try to see in what 
class of problems it fits in. The flow chart should Ье 
generalised 50 that it solves a group of similar problems. 
For example, ме saw that by generalising the flow chart for 
picking the largest of three numbers to one which works for 
any set of numbers we got a more general, simpler and 
elegant flow chart. 
EXERCISES 


Evolve a flow chart to solve two simultaneous linear 
equations ax + by = с, dx + fy = д. Use an elimination 
procedure. Trace the flow chart. 


Develop a flow chart to pick all negative numbers and print 
them from a group of N numbers. 


Obtain a flow chart to find the greatest common divisor of 
two positive integers m and n. The greatest common divisor 
is the largest positive integer which evenly divides both m 
and n. 


Given three points (х1,У1), (х2.у2) and (хҙ.Уҙ) obtain 
a flow chart to check if they are collinear. 


An organization invites tenders for the supply of fans 
Obtain a flow chart to find the minimum quotation thé 
serial numbers of all the minimum quotations and the £F 
number of such quotations. 


Obtain а flow chart corresponding to the decision table of 
Example 2.7 in the text. 


An insurance company follows the following rules Us 
calculate premium. 


(i) If a person's health is excellent and the person is 
below 35 and lives in a city and is a male then the 
premium is Rs. 2 per thousand апа the maximum amount of 
policy is Rs. 2 lakhs. 


(ii) If а person is a female and satisfies all the other 
conditions above then the premium is Rs. 1.50 per 
thousand and the policy may not be written for more 
than Rs. 1.5 lakhs. i 


26 


(iii) 


(iv) 


If а person's health is poor, and age is below 35 and 
the person lives in a village then the premium is Rs. 3 
per thousand and the policy may not be written for more 
than Rs. 10,000. 


In all other cases the person is not insured. 


Obtain a decision table summarising the above 
rules. Obtain a flow chart from the decision table. 


Chapter ||| 
Fortran Programming Preliminaries 


In the last chapter we presented a simplified model of a 
computer. Ап actual computer is organized along similar lines. 
We will present the "classical" block diagram of a computer in 
the next section. 


3.1 Digital Computer Organization 


In the simple model of the computer of the last chapter 


(Fig. 2.2) we had five units which made up a computer. In an 
actual computer also we have five basic units. These units are 
called the Input Unit, Output Unit, Memory or Store, Arithmetic 
logic Unit and а Control Unit. The role of the ‘obedient 


servant' is assumed by the control unit in this model. 


A block diagram showing the structure of: а computer and the 
inter-connections of its various units is given in Rig. 3.4. те 
input unit is usually a typewriter or the keyboard of а video 
display unit  (VDU). The memory usually consists of semi- 
conductor memory elements. The arithmetic unit consists of 
electronic registers, adders, multipliers, accumulators and 
related circuitry. The control unit has electronic circuits to 
decode instructions and actuate other units. The output unit is 
normally a character printer, a high speed Printer, or а video 
display unit. A digital computer also has a console which 
provides a minor and supplementary link for human intervention. 


3.2 Higher Level Language for Computers 


In this section we will examine how a computer solves a 
problem for which a flow chart has been obtained. Tt чола Pe 
nice if a computer could interpret a flow chart like the obedient 
servant of last chapter. Unfortunately, a computer (as of today) 
cannot directly interpret a flow chart. What it can interpret 
and execute аге а set of coded instructions called machine 
language instructions. A machine language instruction for à well 
known computer is, for example, 21 00500 09400. In this 
instruction 21 is the code for add; 00500 and 09400 are the 
'labels' of two memory boxes where the two Operands are stored, 
This instruction commands that the numbers in locations 500 and 
9400 ђе added and the answer put back in 9400. If we memorise 
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Fig: "311 Block diagram of a computer 


the codes and know all the available memory boxes and their 
addresses we can write a series of instructions corresponding to 


a flow chart to solve a problem. A series of instructions to 
solve a problem on a computer is known as a computer program. A 


series of machine language instructions for solving a problem is 
known as a machine language program. 


There are two difficulties in writing machine language 
programs. Firstly one needs to memorise all the codes and keep 
detailed count of memory locations used. This is difficult as in 
a computer there would be more than 100 different instructions 
and hundreds of thousands of locations in memory. Errors will be 
made so often that it will be difficult to get correct answers. 
Secondly the codes will differ from one machine model to another. 


Thus one has to rewrite one's program again and again as new 
machines are introduced. 


Fortunately, now-a-days it is not 

5 chine language instructi 
газ ӨТҮ Жұт uctions. Computer programs 
may be written in one of a host of high level languages. The 
instructions іп а high level language are not coded numbers. 
They resemble ordinary formulae of algebra. Further one need not 
phéer ‘to’ the numerical Labels SEX memory locations. Symbolic 


names may be used to label memory locations. Thus such languages 
are easy to learn and use. 


necessary to write 
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Associated with each high level language is ап elaborate 
computer program which translates it into a machine language. 
This translating program is called a compiler. The resulting 
machine language program is called the object program апа the 
original program written in the high level language is called the 
source program. These terms are explained again in Fig 3.2. 


[Trans lator. 


High level 


Sequence of 
machine 
instructions 


language 
program 


Problem Source program Compiler Об ject program 


Fig. 3.2 Terms used in high level language translation 


Compilers are written by professional programmers. The same 
high level language may be used with different computers. The 
translators are different leading to different machine language 
equivalents of the source program. This is illustrated below. 


Translator X ———> Machine Language X 
High Level Language. 
(Source Program) ш---> Translator Y — ———» Machine Language Y 


UF 


Thus high level languages are also known as machine independent 
languages. 


As a high level language has to be translated by a computer 
program it is essential to precisely define the rules for 
constructing instructions in that language. These are. oui 
syntax rules of the language. 


Translator Z ----> Machine Language Z 


When a high level language program is fed to à — (ut 
compiler analyses each instruction and determines if any syntax 
rules are violated. If no syntax rules are violated the program 
is successfully compiled and stored in the computer жор 
execution. If there are any syntax errors then the compiler 
prints out the list of statements which are wrong and indicates 
the probable mistakes made by the programmer, It does not 
execute the program. 


It is essential to emphasize that compilers cannot diagnose 


errors. in logie. They can only detect syntax errors made in 
Writing a program in high level language. Compilers cannot know 
one's intentions. For instance, if a Programmer read in -5 as 
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the age of a person and used it in computations the compiler 
cannot diagnose this error in data. Programs containing such 
errors will be successfully compiled but will not give the right 
answers. It is essential to be precise in writing programs and 
pay careful attention to minute details. 


3.3 The FORTRAN Language 


FORTRAN stands for FORmula TRANslation. This is the high 
level language used for most scientific and engineering 


calculations. Programs written using this language are called 
FORTRAN programs. 


The computational instructions in FORTRAN resemble ordinary 
algebra. For example X = (A+B+C)/(D+F) is a computational 
instruction. Control and Input/Output instructions resemble 
English language imperative statements. For example GO TO 15 and 
IF(A.LT.B) GO TO 10 are control instructions. READ(*,*)A and 
WRITE(*,*), X,Y,Z are respectively input/output instructions. 
Storage instructions resemble English language declarative 
sentences. For example, KOUNT = KOUNT + 1 is interpreted to mean 
"Store in memory location with name KOUNT, the previous contents 
of KOUNT plus 1". 


In this book we will describe the essential features: of 
FORTRAN. Our primary aim will be to illustrate how to solve 
problems with a computer using FORTRAN as a vehicle of 
communication. Eventhough ideally FORTRAN language should not 
depend on a particular computer for which programs are written in 
this language (as pointed out in the last section), it is not so 
in practice. This is due to the practical difficulty of writing 
compilers keeping an invariant source language syntax. Thus 
there are slight variations in implementation of FORTRAN 
language for different computers. Some attempt has been made at 
standardisation. The American National Standards Institute has 
evolved а set of minimum features of FORTRAN 77, the current 
version of FORTRAN. We will restrict ourselves in this book to 
"Basic FORTRAN" as defined by the American National Standards 
Institute. We will emphasize in the examples the FORTRAN 
implementation on IBM PC compatible computers called MS-FORTRAN 
РУДЕ 


3.4 Оп the Description of Languages 


When a person starts learning a spoken language the first 
thing he learns are the various characters used in the language. 
Then he learns how to combine the characters to form words, words 
to form sentences and sentences to express a thought. Learning a 
higher level language for a computer is Similar and much simpler. 


First a set of legal characters in the language are defined. 
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Then a precise syntactic definition on how to combine the 
characters to form syntactic units (analogous to words in а 


spoken language) is given. One then assigns meanings to the 
syntactic structures. Lastly one talks about grammatical forms, 
namely, the correct relationship between various  syntactic 
structures. 


When a language is described one must make a distinction 
between the language being described and the language used to 


make the description. For example, when one learns Tamil, 
clarifications and descriptions must be made in another language 
which the learner knows. The language being described will be 


called the "symbolic language" and the language in terms of which 
the description is made will be called the metalanguage. In the 
rest of the text rules for writing FORTRAN language will be 
described in ordinary English. 


3.5 Characters used in FORTRAN 


The following are the set of allowed characters in FORTRAN: 


(i) Letters: Capital (upper case) letters of English: 
A,B,C,D,E,F,G,H,I,d,K,L,M,N,0,P,Q,R,S,T,U,V,W,X,Y, 
and Z. 


(iij- Decimal'digits:"071727374,5767758,9 


(iii)jeo'Speera/dJcharaetebsoWwt*- POEST T/D (zt: 


A blank (just like a space in a typewriter) will be 
indicated by the symbol В 


SUMMARY 


1. А computer is made up of five interconnected units. These 
units are input, memory, arithmetic logic unit, control unit 
and output unit. 


2. Input unit is used to read data and instructions and these 
are stored in the memory unit. The arithmetic logic unit is 
used for doing arithmetic and logical operations. The 
control unit interprets instructions and directs all other 
units to obey these instructions. The output unit is used 
to display the results of computation. 


3: А computer 15 designed to interpret and execute а small 
number of coded instructions. These are called machine 
language instructions. 
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A sequence of machine language instructions is known as a 
machine language program. Machine language differs from one 
machine model to another. 


Machine language is difficult to learn and use. 


High level languages are designed to resemble algebraic 
formulae and use simple English phrases. Thus they are easy 


to learn and use. Besides this, they do not change from 
machine to machine. 


Most programming is done in a high level language. A 
translator (written by computer professionals) translates 
high level language programs to machine language and 


executes them on a computer. 


FORTRAN stands for FORmula TRANslation and is a popular 
language used by scientists and engineers. 


In this book we discuss how to program in FORTRAN 77, the 
latest version of FORTRAN. 
EXERCISES 


Draw a block diagram of a computer and explain the functions 
of each unit. 


What is the difference between the Arithmetic Logic Unit and 
the Control Unit in a computer? 


Explain what you understand by the term 


propa machine language 


What аге the disadvantages of writing programs in machine 
language? 
What do you understand by the term high level language? 


What do you understand by the 


term machine i 
language? independent 


Define the terms source program and object program 
What is the purpose of a compiler? 


Can compilers detect logical errors in a program? 


what is FORTRAN? 


What do you understand by the term syntax of а language? 
uage? 
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What do you understand by the term semantics of a language? 


Which type of errors are easy to detect - syntax errors or 
semantic errors? Do compilers detect semantic errors? 


What is a metalanguage? 


Why is a natural language not usually used as a programming 
language? 


Chapter IV 
Reading Simple Fortran Programs 


As we saw in the last chapter, when we learn a natural 
language such as, Hindi, we are first taught the alphabets, then 
words and sentences. We are given sample passages to read and 
understand. Once we know how to read and understand sentences we 
attempt to write sentences on our own. When we are able to write 
correct sentences, we attempt to write a series of sentences to 
convey our thoughts. Sequences of sentences which together 
express а point are placed in a paragraph. A set of paragraphs 
together make up an essay. 


In writing essays it is essential to write grammatically 
correct sentences but it is not enough. The sentences must Бе 
simple and easy to understand. They must be organized logically 
to convey the right meaning. 


The best way to learn to write well is to first read sample 
essays written in good style. Essays written in good style are 
easy to understand. Following this idea, ме will give in this 
chapter some programs for the student to read. We will explain 
the structure of each program and describe what they do. Once a 
student understands these programs, it will be easy to write 
programs on one's own in the following chapters. 


4.1 Simple Programs using arithmetic operations 


As the first example we give Program 4.1. This program 
corresponds to the flow chart of Fig. 2.1. 


In Program 4.1 above the line numbers shown on the left hand 
side are not part of the program; they are given only to refer to 
different lines in the program and explain them. 


A FORTRAN program is written as a sequence of lines on a 
video Display Unit (VDU). Each line is composed of a sequence of 
characters starting from column 1 and ending in column 72 of the 
уро. Characters written beyond the 72nd column are ignored. A 
line is usually a FORTRAN statement. A statement is normally a 
command to the computer to execute a task. Some statements are 
used to provide information to the compiler. They do not require 
executing a task. This distinction will.be explained in detail 
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Line "Fortran Statement as displayed in VDU 


Number 
| T 7 ——— Column Number іп VDU 
1 READ(*,*) A,B,C 
2 X = (C-B)/A 
3 WRITEC,*) X 
4 STOP 
5 END 
6 0.2,0.3,1.5 


* For explanation only 


Program 4.1 Solving a linear equation 


later. Columns 1 to 5 of the line are used to label a statement. 
А statement need not be labelled. It is labelled only when it is 


necessary to refer to it from another statement. The statement 
body is written between columns 7 and 72. Most statements can be 
accommodated in this width. If a statement is longer it may be 


continued on the next line from column 7. This line is indicated 
as а continuation of the previous line by writing г 1 in column 
6. Blanks within a body of a statement are ignored. 


In Program 4.1, line 1, the statement READ (*,*) A,B,C is a 
command to READ data fed to the computer and store them in three 
memory boxes labelled A, B, С respectively. А, B, C are called 


variable names in FORTRAN. Thus variable names are labels for 
memory boxes. The contents of these boxes are the values of the 
variables. If the data fed to the input unit are 0.2, 0.3, 1.5 


respectively the 


A B 


C 
[0.2] [o.3] [1.5] 
contents of А, B, C are 0.2, 0.3 and 1.5 as shown above. А, B 


and C are called variables as values stored in them may change 
during the execution of a program. 


One may wonder why the command to READ is written as 
READ(*,*) instead of merely READ. -There is no logical answer to 
such a question. The rules of grammar of FORTRAN require such 


a notation. 


Line 2, X = (С - B)/A is called an arithmetic statement. 
The equal to sign = does not have the same meaning as - sign in 
algebra. In FORTRAN it is known as an assignment operator. The 
part of the statement to the right of the assignment operator - 
is known as an arithmetic expression. An arithmetic expression 


36 


is evaluated using the numbers stored in the variables and 
performing the,arithmetic operations indicated in the statement. 
The result is assigned to, that is, stored in the variable name 
on the left of the assignment operator -. In this example the 
arithmetic expression when calculated gives (1.5-0.3)/0.2 - 6.0. 
The numbers stored in Х,А,В,С before and after execution of the 
statement X-(C-B)/A are shown below: (Observe that the symbol / 


is used in FORTRAN as the division operator.) 


x A B с 
Before [ 2 | [ 0.2 | [ 0.3 ] | 145 | 
анне, У = ака К ава 1c кл 
line 2 Number stored 

in X unknown 
(undefined) 

x A B с 
orc ы NM EI x wwe ГІ та 
executing [ 6.0 ] [ 0.2 | [ 0.3 ] [ 1,5 ] 
adc Ae T: у REM. PI _---==- =) СН ТН ы 


Observe that the numbers stored in A,B,C remain unaltered 


after executing line 2. The variable X is said to be undefined 
if we do not know what is stored in it. After executing the 
statement of line 2 the number 6.0 is stored in X. The variable 


X is now said to be defined. 


The statement in line 3, WRITE (*,*)X, 
contents of the variable X be written on the D anette the 
is а statement which commands the computer to stop exe б STOP 
the program. The END statement (line 5) indicates ea ош of 
end of the program. In other words, it tells the co e physical 
no more statements are there in the program. Any di mpiler that 
END statement is interpreted as data to be fed to das iier the 
am. 


There is a need for an END statement which j ЧЕРТЕ 

STOP in FORTRAN. There may be many STOP ЕЕ Cas кезіне? from 
Bs ЧЕ corresponds to the logical end of а o S in a program 
Teasing of execution “There бан БЕ only one END gram, that is, 
is the last statement in a FORTRAN program, Statement and it 

Line 6 following the END statement is у ^ 
ritten. Input data is written free ae in which input 
column 80 TORIA 222 in VDU. Individual 4. 1, and may go 
ted by commas. e first data item c data items аге 
first variable th erresponds to the 


second vari 


зу 
А B € 


READ (*,*) A,B,C [о.2] | [1-5 | 


As the next example we take the problem of finding the area 
of a plot whose length and breadth are given in yards. TEIS 
required to find the area in square metres. Let the plot be W 
yards wide and P yards long. Ме know that 

1 yard 3 x 12 inches 
3 x 12 x 2.54 cms 
3 x 12 x 0.0254 metres 


Using this, program 4.2 is written. 


Line Fortran Statement 
Number 
L 1 7 ----> Column Number 
1 READ(*,*) W,P 
2 CONVERFAC = 3.0 * 12.0 * 0.0254 
3 WMETRE = W * CONVERFAC 
4 PMETRE = P * CONVERFAC 
5 AREA = WMETRE * PMETRE 
6 WRITE(*,*) AREA 
7 STOP 
8 END 
9 10.0,25.0 


Program 4.2 Finding area of.a plot 


When the statement READ(*,*) W,P in line 1 is executed 
memory boxes are labelled W and P respectively and numbers 
as data are stored in them as shown below. 


two 
typed 


In the statement CONVERFAC = 3.0 * 12.0 * 0.0254 in line 2, 
all the quantities to the right of the assignment operator are 
constants. In other words they are known numbers 3,12 and 0.0254 
respectively. The symbol .' stands for the multiplication 
operator. The statement in line 2 commands that the constant 3.0 
is to be multiplied by 12.0 and the product by 0.0254. The result 
is the conversion factor from yards to metres and is stored in 


CONVERFAC. 


w 
со 


CONVERFAC 


The statements in lines 3 and 4 convert the width and length 
given in yards to metres. In the statement WMETRE-W* CONVERFAC 
of line 3 the arithmetic expression on the right of the 
assignment operator = is first evaluated by multiplying the 
content of W by the content of CONVERFAC. The result is 9.144. 
This is stored in a memory box named WMETRE. Similarly in line 4 
(PMETRE = P*CONVERFAC) the expression on the right of =, namely, 
P*CONVERFAC is computed by multiplying the content of P by the 
content of  CONVERFAC. The result is stored in  PMETRE. The 
results are shown below: 


In the statement AREA = WMETRE * PMETRE of line 5 the 
content of WMETRE is multiplied by the content of PMETRE and 
the result is stored in the variable name AREA (i.e., a memory 
box labelled AREA). At the end of this step we have 


W P CONVERFAC WMETRE PMETRE AREA 


Co Eo TTC o EAE А ЕЕ 


The statement WRITE (*,*) AREA in line 6 commands that the 
contents of the variable name AREA should be displayed оп the 
VDU. The STOP statement of line 7 stops execution and the END 
statement indicates the physical end of the program. 


4.2 Program Tracing 
E EE O LE a 


In the last two examples we explained how programs are 


executed. We did this by taking each line and telling what the 
statement in that line does. This can be displayed as a table. 
such a table is called the trace of the program. The traces of 
programs 4.1 and 4.2 are shown in Tables 4.1 and 4.2 


respectively. The layout of the trace table is as follows: 


(i) The left most column records the line number of the 

statement executed. 

e The second column is used to indicate “ 

(ii) result ОБ testing a condition (if any) in merhe, the 
in that line is true or false. We will call this as 
condition testing. This column is also used t 
the output generated by a WRITE statement. о show 
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Input data 
Ола Оле 


Trace 
[^^ _ Т ШТ — j] usss 
ba No. | Condition test/Output 
> 

1 

2 

3 Output : 6.0 

4 Stop execution | 
Result 

6.0 

Table 4.2 : Trace of Program 4.2 

Input Data 

10.0, 20.0 


Variable Names 


CONVER | WMETRE |PM 
a a ORE es, ы 
10 |20 ? > = 


167.225 


167.225 


Output : 167.225 10 


Stop execution 


Result 


167.225 
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(iii) The next set of columns in the trace are used to show 
the values of the variables in the program. One column 
is used for each variable. The value of a variable may 
change during the execution of a program. The value 
Stored in the variable name at each step during program 
execution is shown in the trace. When the value stored 
in a variable name is not known, that is, it is 
undefined then we indicate it by using the query 
symbol?. 


4.3 Programs with branching 


In the procedure given in Example 2.2 of Chapter 2 there 


were two paths which the procedure could take. The actual path 
taken depended on the value of the variable a. This is called 
branching to опе or the other path. A  FORTRAN program 


corresponding to this example is given as Program 4.3 


Line Fortran Statement 
Number 

| 1 7 ----> Column Number 

1 READ(*,*) A,B,C 

2 IF (A.EQ.0) THEN 

8 WRITE(*,*) 'WRONG EQUATION-NO SOLUTION' 

4 ELSE 

5 X = (C-B)/A 

6 WRITE(*,*) X 

ү ENDIF 

8 STOP 

9 END 

10 0.0,1.5,2.0 


Program 4.3 Solving a linear equation with branching 


The trace of Program 4.3 is given as Table 4.3. It is 
assumed that the input is 0.0, 1.5, 2.0 as shown. The statement 
in line 2 is called an IF statement in FORTRAN. The IF statement 


checks а condition. If the condition is true the statements 
following THEN upto the ELSE statement аге executed. After 


executing the statements the program branches to the statement 
following the ENDIF statement. The ENDIF statement indicates the 
termination of the block of statements belonging to an ТЕ 
statement. ENDIF statement is not executed. It has a role 
similar to that of a parenthesis. 


rf the condition Кы false the program branches to the 

i the ELSE statement d h 
ement following an the block of 
vivit vd between ELSE and ENDIF are executed and execution is 


continued. 
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Table 4.3 : Trace of Program 4.3 


Numbers stored in Variable Names 


Condition test/Output 


125 2.0 2 
2 (А .EQ. O) .TRUE 0 1.5 2.0 ? 
3 WRONG EQUATION - 0 185 2.0 2 


NO SOLUTION 


8 STOP 


Result 


WRONG EQUATION - NO SOLUTION 


In this program the condition being checked is (A.EQ.O). 
The symbol .EQ. 15 called a relational operator. It is used to 
represent the operator = (equal to). As the Symbol - has already 
been used to represent the assignment operator we use the 
symbol .EQ. for the relational operator. In this example as A is 
equal to 0 the, program branches to line 3 (as shown in the trace 
of Table 4.3) and the message WRONG EQUATION - NO SOLUTION is 
written by the program. Messages are enclosed within quotes in 
FORTRAN. 


If A = 2.0, for example, then the condition (A.EQ.0) will be 
false. In this case the program will branch to line 5 Х=(С- 
B)/A following ELSE. This statement will store in X the result 
of evaluating the expression (C-B)/A. The value in X will then 
be displayed when the statement WRITE (*,*) у ig executed. 


The expression A.EQ.0 is known as a relational expression. 
Such an expression does not have a numeric value. Tt SEES РЕ 
value, that is, it can be either true or false. 


We give one more example to illustrate branching in 
Programs. То find the largest of three numbers A,B,C we will use 
an algorithm similar to the one used in Chapter 2 (Example 2.4). 
The  FORTRAN program corresponding to this algorithm is given as 


Program 4.4. The trace of this program is given in Table 4.4. 
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Line Fortran Statement 


1 7 ———95 Column Number 


1 READ(*,*) A,B,C 

2 BIG = A 

3 IF (B.GT.BIG) THEN 
4 BIG = B 

5 ENDIF 

6 IF (C.GT.BIG) THEN 
tb BIG = C 

8 ENDIF 

9 WRITE(*,*) 'LARGEST NUMBER = ',BIG 
10 STOP 

11 END 

12 2.5,6.8,4.6 


Program 4.4 Finding largest of three numbers » 


Table 4.4 : Trace of Program 4.4 


Input 


2.5, 6.8, 4.6 


Numbers stored in Variable Names 


b Lodi LLL EDAM S ad 


(B .GT. BIG) TRUE 


(с .GT. BIG) FALSE 
LARGEST NUMBER = 6.8 


STOP 


жазы “LARGEST NUMEEE 5 6.8 
Result 


4.4 Programs with loops 


Many problems require repetitive computations. For example, 
let us consider the problem of finding the amount in a person's 
account if he deposits Rs.1000/- in a bank for 4 years апа the 


interest given is 12* compounded yearly. While we try to evolve 
an algorithm it is good practice to generalise the problem by 
using variables instead of the given constants. In other words 


it is better to pose the problem as "A person deposits Rs.P in à 
bank for М years and the bank gives R* interest compounded 
yearly. What is the amount accumulated in the account?". If an 
algorithm is developed for the above problem then by merely 
reading appropriate values for P, N and R we can find out the 
amount for а whole class of similar problems. Further if a 
variable such as interest rate К changes we can easily 
accommodate the change without changing the program by merely 
changing the data stored in R. A FORTRAN program for solving the 
problem is given аз Program 4.5. It is based on the simple 
formula given below: 


Time in years Principal 
0 P 
1 P * P*R/100 
2 (P+P*R/100) + (P+P*R/100) *R/100 


In general the formula is : 
Current amount = Previous Amount + Previous Amount * R/100 


In Program 4.5 the principal deposited, P, the number of 
years for which the amount is deposited, N, and the yearly 
interest rate R are read by the READ statement of line 1. Line 2 
introduces ап important new statement in FORTRAN called the О 


Statement 
Number i 
Line Fortran Statement 
Number 
| 1 567 COLUMN NUMBER 


1 READ(*,*) РМЕ 

2 DO 30,1 = 1,N 

3 P ЕР + P'R/100.0 

4 30 CONTINUE 

5 WRITE(*,*) 'AMOUNT IN ACCOUNT = ',P 
6 STOP 

7 END 

8  1000.0,4,12.0 


Program 4.5 Finding balance in a bank account 
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statement. It commands that all the statements following it upto 
and including statement numbered 30 is to be carried out 
repetitively. First with I-1, next I-2..... and finally with 
I-N. In other words the statements in lines 3 and 4 are to Бе 
executed М times. These two statements are said to be ina DO 
LOOP. Observe the statement in line 4. It is labelled with the 
number specified in the DO statement and indicates the terminal 
statement of the DO loop. This label is called a statement 
number. Statement number is written anywhere between columns 1 
and 5 in a FORTRAN statement. The statement in line 4 says 
CONTINUE. It is mainly used to indicate the last statement in a 


DO loop. 


The trace of Program 4.5 is shown in Table 4.5. 


Input 
1000.0, 4, 12.0 


1000 


1000 12.0 1 
1120 12.0 1 
1120 12.0 1 
1120 12.0 2 
1254.40 12.0 2 
1254.40 12.0 2 
1254.40 12.0 3 
1404.93 12.0 3 
1404.93 12.0 3 
1404.93 12-0 4 
1573.52 12.0 4 
1573.52 12.0 4 
« 4? False 1573.52 1250 5 
ІМ ACCOUNT-1573.52 1573.52 12.0 5 


1573.52 
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Program 4.5 is a simple concise program. If one reads it 
without the explanation given in the accompanying text it will be 
difficult to understand the program. It is a good practice to 
write programs which are self-explanatory. This is done by 


writing what are known as comments within the program text. 
Comments explain to a reader what the program does. They are not 
processed by the computer. To illustrate the importance of 
comments we have rewritten Program 4.5 as Program 4.6. In 
Program 4.6 lines 1 to 5 are comments. A line is understood as a 
comment by FORTRAN if the letter C is in column 1. Lines with C 
in column 1 are not processed by the FORTRAN compiler. They may 
appear anywhere in a FORTRAN program. 


Observe also that the variable names P, М AND R of Program 
4.5 have been replaced by PRINCIPAL, NYEARS and RATE respectively 
in Program 4.6. This has been done to improve the readability of 
the program. Observe that the names used in Program 4.6 to 
represent variables closely resemble their normal names. For 
principal we use PRINCIPAL, for number of years NYEARS and for 
interest rate RATE. 


Line Fortran Statement 
Number 
| 1 567 
1 с А PROGRAM TO FIND THE AMOUNT ІМ АМ ACCOUNT 
2 с WITH COMPOUND INTEREST 
2. е. AMOUNT IS AMOUNT DEPOSITED 
4 C NYEARS IS NUMBER OF YEARS FOR WHICH DEPOSITED 
Б.О RATE IS THE YEARLY RATE OF INTEREST 
6 READ(*,*) PRINCIPAL,NYEARS,RATE 
7 AMOUNT = PRINCIPAL 
8 DO 30 I = 1,NYEARS 
9 AMOUNT = AMOUNT + AMOUNT'RATE/100.0 
10 30 CONTINUE 
11 WRITE(*,*) 'PRINCIPAL = ',PRINCIPAL 
12 WRITE(*,*) 'AMOUNT IN NYEARS = ' AMOUNT 
13 5ТОР 
14 END 


15 1000.0,4,12.0 


Program 4.6 Illustrating use of comments and meaningful 


variable names 


Observe that line 9 in Program 4.6 has been indented. It is 
done to improve the readability of the program. Statements 
within a DO loop, namely, those between the po statement and the 
Corresponding CONTINUE statement are indented to remind the 
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reader of the program that these statements are executed 
repetitively. 


Blanks within FORTRAN statements are ignored by the FORTRAN 
compiler. Thus blanks may be used judiciously to improve 
readability of FORTRAN statements. For example, we write: 


DO 30 I = 1, NYEARS 


and not 
DO30I-1,NYEARS 
which has no blanks separating DO from 30 etc. (The only place 
where blanks are significant in FORTRAN are in FORMAT statements. 
we will discuss it later. The reader may, for the present, 


assume that blanks are ignored by FORTRAN compiler). 


As one more example of a program with a loop we will expand 
the last program. In the last program we calculated the balance 
in an account at the end of N years given the principal deposited 
and the interest rate. In this example we assume that each year 
some amount is deposited. These deposits need not be the same 
each year. We will calculate the amount in the account at the 
end of N years if the yearly rate of interest is given. 


Program 4.7 solves the above problem. The program has 
Line Fortran Statement 
Number 
| 1 7 
Wee THIS PROGRAM FINDS THE AMOUNT IN AN ACCOUNT 
2 с WHEN YEARLY DEPOSITS ARE MADE. 
9 1© THE INTEREST RATE IS GIVEN.NYEARS IS THE 
4 с NUMBER OF YEARS DEPOSITS ARE MADE. 
5 с COMPOUND INTEREST IS ASSUMED. 
6 READ(*,*) NYEARS,RATE 
7 AMOUNT = O 
8 DO 60 I = 1,NYEARS 
9 € DEPOSIT MADE IS READ BY THE FOLLOWING STATEMENT 
10 READ(*,*) DEPOSIT 
11 AMOUNT = (AMOUNT + DEPOSIT)*(1.0 + RATE/100.0) 
12 WRITE(*,*) 'DEPOSIT = ',DEPOSIT 
18 WRITE(*,*) 'YEAR = 'L' AMOUNT = ',AMOUNT 
14 60 CONTINUE 
15 STOP 
16 END 
4,12.0 
1000.0 
1500.0 
2000.0 
500.0 


Program 447 Balance іп an account with yearly deposits 


> 
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comments and is self explanatory. Observe that in this program 
we read yearly deposit within the DO loop. Each time the READ 
statement is executed within the loop the appropriate data for 
the deposit should be fed to the input unit. Within the DO loop 
we have WRITE statements which write out the deposit made and the 
balance amount each year. 


Table 4.6 : Trace of Program 4.7 


4, 12.0, 1000.0, 1500.0, 2000.0, 500.0 
Numbers stored in Variable Names 


Condition test/Output 


I < NYEAR True 


1000.0 
1000.0 1120.0 
1000.0 1120.0 
1000.0 1120.0 
1000.0 1120.0 
1000.0 1120.0 
1500.0 1120.0 
1500.0 2934.4 
1500.0 2934.4 
1500.0 2934.4 
1500.0 2934.4 
1500.0 2934.4 
2000.0 2934.4 
2000.0 5526.53 
2000.0 5526.53 
2000.0 5526,33 
2000.0 5526 253 
2000.0 5526.53 
500.0 5526.53 
500.0 6749.71 
500.0 6749.71 
500.0 6749.71 
500.0 6749.71 
500.0 6749.71 
500.0 6749.71 


рЕРОЅІТ = 1000.0 

YEAR = 1 AMOUNT = 1120.0 
Loop back to line 8 

I < NYEARS True 


DEPOSIT - 1500.0 

YEAR - 2 AMOUNT - 2934.4 
Loop back to line 8 

I < NYEARS True 


2000.0 
- 5526.53 


rw > Ш> d> йы Шы ps dm ds ds ds > ps P> ds 
(л (л کی‎ > Ф s ж > Ú Q ш) (Q ш) U N) B Ко N) N) Ñ P یم یم در‎ P P °S w 
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SUMMARY 


It is useful to learn to read FORTRAN programs before 
attempting to write programs. 


A FORTRAN program consists of a sequence of instructions 
called statements which are carried out normally in the 
order in which they are written. 


READ (*,*) А,В reads numbers typed in and stores them in 
memory locations which are labelled A and B respectively. 


WRITE (*,*) А,В displays on VDU the numbers stored in 
locations A and B. 


Arithmetic expressions аге calculated using operators + 
(add), -(subtract), * (multiply), / (divide) and ** (raise 
to a power) operating on numbers stored in variable names. 


Ап arithmetic statement assigns a value calculated by an 
arithmetic expression to a variable name. For example A - 
B*C/D-5.8. 


An IF statement is used to implement a decision box in a 
Flow chart. The statement, 


IF (relational expression) THEN 
A- С+В 

ELSE 
A= C-B 

ENDIF 


tests the relational expression. If it is true the 
statement A= C+B is executed, otherwise A= C-B is executed. 


A DO statement is used to implement loops in a program. For 
example: 
DO 25 І = 1,10 
51 
52 
25 CONTINUE 


commands that Statements sl апа 52 be executed first 
with I-1, next time with I-2 and so on, and the last time 
with I-10. 


To read апа understand a program we should follow each 
instruction in the program obediently using a set of sample 
input values for variables and make a table. Such а table 
called the trace of а program is useful to verify whether 
the program gives the right answers. 
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EXERCISES 


Read the following programs and explain what they do. Trace 
the programs and obtain trace tables. 


4.1 READ(*,*) I,J 
K- I*I + J*J -2* I*J 
Lm 171 = J*g 
WRITE (*,*) K, L 
STOP 
END 


4.2 READ(*,*) K,I,J 
L- K*K 
М= I*I + J*J 
IF (L.EQ.M ) THEN 
WRITE(*,*) 'I,J SIDES OF RIGHT TRIANGLE' 
ENDIF 
WRITE(*,*) 'I,J NOT SIDES OF RIGHT TRIANGLE' 
STOP 
END 


4.3 READ(*,*) K 
IF (K.LT.O) THEN 
WRITE(*,*) 'K IS NEGATIVE' 
ELSE IF (K.EQ.O) THEN 
WRITE(*,*) 'K IS ZERO' 


ELSE 
WRITE(*,*) 'K IS POSITIVE' 
ENDIF 
STOP 
END 
4.4 READ(*,*) A,B,C,D,F,G 


F- F - B*D/A 

G- G - C*D/A 

Y= G/F 

X= (C - B*Y)/A 
WRITE (*,*) X,Y 
STOP 

END 
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10 


25 


READ (*,*) N 

KOUNT=0 

READ (*,*) X 

KOUNT= KOUNT+1 

IF (X.LT.0) THEN 
WRITE(*,*) X 

ENDIF 

IF (KOUNT .NE. N) GO TO 10 

STOP 

END 


READ (*,*) x 

SUM - 1 

TERM = 1 

COEFF - O 

DO 25 I 1,4 
TERM -TERM *X*X 
COEFF = СОЕЕЕ+ 2 
SUM = SUM + COEFF * TERM 

CONTINUE 

WRITE(*,*) SUM 

STOP 

END 
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Chapter V 
Constants and Variables 


In this chapter we will begin discussing the rules of syntax 
of the FORTRAN language. 


5.1 Constants in FORTRAN 


In algebra we deal with two types of quantities 


(i) Constants like 1,2,4,8, etc and 
(ii) Variables like x,y,z, etc. 


Similarly іп FORTRAN a number used in a calculation which 
does not change during the execution of a program is called a 
constant. А number stored in memory which changes during program 
execution is called a variable and is given a name. 


In FORTRAN constants are classified as : 


(i) Integer constants and 
(ii) Real constants. 


Integer constants are whole numbers without any fractional 
part. Real constants (also known as floating point constants) on 
the other hand may have fractional parts. The following rule 
specifies the method of writing integer constants in the FORTRAN 
language. 


Rule: An integer constant is a string of decimal digits. It 


must be written without a decimal point. It may have 
either sign f Or — . If neither sign precedes’ Не 
constant, it is assumed to be positive. 


The minimum and the maximum integer constants depends on the 
computer being used. For IBM PC the range of integer constants 
is +32767 


When a rule is given while defining the language it must be 


Y i lenience sho t user by a 
exactl followed. There _is no эп! te а 
compiler if he does not strictly follow the rules. 
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52 
Examples 
The following are valid integer constants: 


(i) 1234 
(59062108 
(#35) -985 


The following зис оспа integer constants 


(лл 
(11) 452586 
(iii) “ғ -452 
(ту). 2,352 


The following rule specifies the method of 


constants in FORTRAN. writing real 


Rule: А real constant is a strin А “423 
includes а decimal Linc e 9f decimal digits which 


It may also be written as a mantissa consisti 

ө Ла 5 > ISt i 

decimal digits including a decimal point r esed Pr а SI of 

and a string of digits (known as exponent) with no ALS eee ot E 

Both the mantissa and the exponent may have their Рей 
ent 


signs. 


IBM РС ,allows an exponent range of +38 Th 
number of. digits in the mantissa which will be SEN 


memory is 7. 


maximum 
їп the 


In the number 52.545E28 the number 52.545 ig the 


and the number 28 following E is the exponent. mantissa 


The value of 
the 
number is 52.545 x 1028, 


Examples 


The following are valid real constants 


(i) 1.00 
(ii) -1222222. 
(3:19) 12345767 
(iv) 345678.5E-25 (This means 34 
R 3 5678. = 
(77,7 „23830 (LE mosign is not р ју) 
15 implied) 


тће following are invalid real constants 


(i) 145 
(ii) 1.23456789Е 
(iii) 12345678.Е90 
(iv) 12.E = 805 
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(v) 12.42 Е + - 5 
(vi) 12.42 Eb. 
(vii) 4735250 


5.2 Variables in FORTRAN 


In FORTRAN a quantity which may vary during program 
execution is called a variable. Each variable has a specific 
storage location in memory where its numerical value is stored. 
The variable is given a name and the variable name is the "name 
tag" for the storage location. The value of the variable at any 
instant during the execution of the program is the value of the 
number stored in the storage location identified by the name of 
the variable. 


А variable is said to be defined if a number is stored in 
the storage location identified by the name of the variable. 


Before a variable can be used in a calculation it must be 
defined. A variable may be defined by a READ statement or as the 
name of location where the result of an arithmetic calculation is 
stored or by a statement such as A=5.2. 


When the value of a variable is read (or copied) from memory 
the original value still remains in memory. When a new number is 
stored in a memory location, however, the number which was there 
previously is erased. 


As variable names are name tags of memory locations where 
numbers are stored, and numbers are of two types, integers and 
real numbers, one has to define two types of variables names: 
integer variable name and real variable name. A number stored in 
a memory location with an integer variable name is an integer 
(with the restrictions given while discussing integer constants) 
and one stored in a location with a real variable name may have a 
fractional part (with restrictions discussed in the last 


Rule: An integer variable name isa String of one to six 


letters or digits. The first character in the name 


must be one of the following letters, I,J,K M, or N. 
r 


L 
г = TL АЗА i. 
The name must not contain any special character. 


IBM PC MS FORTRAN allows use of upto 660 characters for a 
variable name! However, only the first Six characters are used to 
identify the variable. The rest are ignored. Thus the two 
variable names NUMBERX and NUMBERY are not distinct. They will 
both be assigned the name NUMBER by the compiler! Thus it is a 
good practice not to assign similar variable names to distinct 


Variables in a program. 
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Examples 
The following are valid integer variable names 
(i) ІКЕС 
(ii) 1235 
(iii) К5АВС 
(iv) MIKL2X 


The following are invalid (why?) 


(i) AIKM 
(ii) I A B C+D E1 
(аа) ш> в сор 
(iv) К5,М 


The rule for constructing a re i 
M g al variable name is given 


Rule: A real variable name is any combination of one to six 


ae 24 digits. Ihe Gu. character in the nam 

WR С ул 

A,B,C,D,E,F,G,H,O,P Раст U V W. X Y eS “oe 
= sil name 


must not contain any special character. 


As in integer variable names 
characters .in real variable names Bee FORTRAN 
characters are significant. only the 


allows 660 
first six 


Examnples 


The following are valid real variabl 
PRINCIPLE AND PRINCIPAL will, АЛАУЫ BE pde The variable names 
PRINCI. š oth truncated to 


(i) THETAO 

(ii) DIG 24 
(iii) PI 
(iv) В 


(v) PRINCIPLE 
(vi) PRINCIPAL 


The following are invalid (why?) 


(Daw Ви веже 
(34) I Bee 
(iii) А BC < D EE 
(iv) A B * 2 
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It is interesting to note that an enormous number of 
variable names may be defined using these rules. It is а good 
practice to exploit this enormous choice in naming variables in 
computer programs by using variable names corresponding to their 
role in the physical problem. Thus, for example if one is 
calculating temperature, pressure and the life of a catalyst 
in a chemical process the corresponding computer variables may be 
named TEMPERATURE, PRESSURE and CATLIFE respectively. 


5.3 TYPE Declaration for integer and reals 


The need to use a special letter as the first letter of a 
variable name to determine whether it is integer or real was a 
restriction imposed in FORTRAN ТІ. This restriction Ts 
irritating to users. Thus FORTRAN 77 provides a means of 
circumventing this rule by allowing the user to declare the 
nature of the variable before it is used in a program. Thus опе 
may write 


REAL LIFE 
INTEGER STUDENT 


in which case LIFE is treated as a real variable name and STUDENT 
as an integer variable name. Indicating the nature of a variable 
by statements such as above are known as TYPE declaration. 


More than one variable may be declared REAL in the same 
declaration. The same also holds for INTEGER TYPE declaration. 
Thus we may write 


REAL LIFE, ITEM, LAMEDA 
INTEGER GAMMA, COUNT, SUMX 


Observe that the variable names are separated by commas 
and that there is no comma or full stop after the last variable 


name. 


In a program one may have more than one declaration 
statement. The declarations must appear before the first use of 
the variable name. It is a good practice to gather all 
declarations and place them at the beginning of a program. 


_SUMMARY_ 
Ls Constants in FORTRAN are quantitites which do not change 
during program execution. 
2. Constants are divided into two categories : integer and 
real. Integer constants are whole numbers, whereas real 


constants have a fractional part. 


10. 


Integers have values in the range of +32767 in IBM PC. 


Reals may be expressed in either of two forms.  Fractional 
form: + dddd.ddd where d is a decimal digit. Exponent form: 
+ mmmmmmmmmm.E+ ee where m are mantissa digits and ee ог 
exponent digits. The number of mantissa digits should Бе 
less than 7 and the range of exponent is + 38 (For IBM PC) 


Variables in FORTRAN are quantities which change during 
program execution. Variable names are used to label 
locations in memory where numbers which may change during 
program execution are stored. 


There are two types of variable names in FORTRAN. Integer 
and real. Integer variable names are used to store integers 
and real variable names to store numbers with fractional 
parts. 

A variable name is a string of one to 66 characters. The 
first character must be a letter. Other characters may be 
letters or digits. Only the first six characters are 
significant. 


The first letter of an integer variable name is I,J,K,L,M,or 
N. The first letter of a real vàriable name may be any one 
of the other 20 English letters. 

A variable name may be declared at the beginning of a 


program as REAL or INTEGER . Such a declaration supersedes 
the naming convention given in point 8 above. 


It is a good practice to give meaningful names to variables. 
EXERCISES 


Pick the incorrect integer constants from the following 
list. Explain why they are incorrect. 
(1) -4689 
(11) = 785 
(iii) 4,25,325 
(àv) 1/4 
(v) 62-34-86 


Pick the incorrect real constants from the following list. 
Explain why they are incorrect. 


(i) 40,943.65 
(ii) 428.58 


(zii) 
(iv) 
(v) 
(vi) 
(vii) 
(viii) 
(ix) 
(x) 


Pick 


following list. Explain why they are incorrect. 


(i) 
(ii) 
(iii) 
(iv) 
(v) 
(vi) 


46 + E2 
46E2 

485. + 6 
462XE - 2 
425E2.5 
.0045E + 6 
1/2.2 
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the incorrect integer variable names 


MASS 
LIMITED 
DIGIT 
LAMBDA 
INT. 
IN-NUM 


Pick the incorrect real variable names from the 


list. 


(i) 
(ii) 
(iii) 
(iv) 
(v) 
(vi) 


Pick 
list. 
(i) 
(ii) 
(iii) 
(iv) 


Explain why they are incorrect. 


CONSTANT 
VARIAB 
NUMBER 
RS-PS 
ROL.NO 
LAMBDA 


the incorrect type declarations from the 
Explain why they are incorrect. 


REAL SERNO, MASS, IOTA, INCOME 
INTEGER, SERNO, DIGIT, COUNT 
REAL INTEGER, KRORE. 

INTEGER REAL, ROOT, BIG 
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from the 


following 


following 


Chapter VI 
Arithmetic Expressions 


An expression in FORTRAN is a series of variables and 


constants connected by arithmetic operation symbols namely, 
addition, subtraction, multiplication, division and 
exponentiation. During the execution of the object program the 


actual numerical values of the variables are used, together with 
the operation symbols, to calculate the value of the expression. 


The following symbols are used to represent arithmetic 
operations: 


FORTRAN Operator Symbols Arithmetic Operation 
+ Addition 
- Subtraction 
* Multiplication 
/ Division 
ш Exponentiation 


Modes of Expression 


: We saw in the last chapter that variables пау be either 
integers or real numbers depending on whether the variable name 
started with I,J,K,L,M,N, or not. Numbers stored in memory 
corresponding to integer variables are integers, that is, they 
may not have a fractional part. Those corresponding to real 
variables may have a fractional part. These are respectivelY 
called _the integer mode and real mode. While evaluating an 
pi PR all quantities appearing in it must be* in the same 
mode. 


This leads us to the divisio 
n of e - А 
classes. xpression into two 


(i) integer expressions or expressions in integer mode 
* This restriction has been relaxed in FORTRAN 77 м. 
A ; = . Ho i 
is advisable for a beginner to follow the stricter Be О ұш 
58 1 
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(ii) real expressions or expressions in real mode. 
6.1 Integer Expressions 


Rule 1: A signed ог unsigned integer variable name or an 


integer constant 15 an integer expression. For 
example: Т Kir -4, *4, 5 are "all “integer 
expressions. 

Rule 2: An integer expression connected by an arithmetic 


operator on its right to an unsigned integer 
variable name or an unsigned integer constant is ап 
integer expression. 


Observe that the rule is a recursive definition, that is, 
it uses the previous and present rules of forming an integer 
expression to form a new expression. Thus, for example: -IA * IB 
is an integer expression by applying the rule once. SLA * ЗЕВС 
15 another integer expression by using the present rule. 
Similarly IA*IB+IC/J is another integer expression. 


Rule 3: An integer expression enclosed in parentheses is an 
integer expression. 


For example: (-K*I*J), (KAT*MAT/NAT) and  (MAT*NAT) are 


integer expressions. 


Rule 4: Two integer expressions connected by an arithmetic 
operator is an integer expression. 


Rule 5: Two arithmetic operators should not occur in 
succession in an integer expression. 


(i) IA+IB*IC/ID 
(ii) (IA+IB) * (IC/ID) 
(iii) ІА-ІВ/ (IK-IFT) * IPS 


are all integer expressions. 


It must be reiterated that the rules are to Бе followed 
precisely. 


For example, ІА%-ІВ is an invalid expression because there 
are two operators between the variable names whereas only опе 
operator is allowed by the definition. 


No operator 15 ever assumed to be present. For example, 
writing IJ when it is intended to form the product of I апа Ј 
Will not do the job; the proper expression is I*J. If we write 
I.J it is also invalid. The between I and J is not the 


multiplication operator. 
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Another invalid expression is  (IA*IB. Here the right 
parenthesis is missing. (Each left parenthesis should be matched 
by a corresponding right parenthesis). 


The following are some more examples of invalid expressions: 
AB**-4 апа IA/-K аге invalid as two operator symbols аге in 
juxtaposition. 


6.2 Real Expressions 


Rules for forming real expressions are identical to those 
given for forming integer expressions. There is only one 
exception which will be explained at the end of the section. 


The rules are obtained by substituting the word real for the 
word integer in all the rules given in the last section. These 
are summarised below for convenient reference. 


Rule 1: A signed or unsigned real variable name or a real 
constant is a real expression. 


Rule 2: A real expression connected by an arithmetic operator on 
its: right То ап unsigned real variable name or an 
unsigned real constant is a real expression. 


Rule 3: A real expression enclosed‘in parentheses is a ‘real 
expression. 


Rule 4: Two real expressions connected by an arithmetic operator 
is a real expression. 


Rule 5: Two arithmetic operators should not occur in succession 
in a real expression. 


Following the above rules, examples of real expressions are: 


From Rule 1: ABE, -ABE, -4. 5, 2.2 

From Rule 2: -АВЕ+ВАТ+А*В, ATE*BA/CA, ATE**BA/CA 
From Rule 3: (BAT+4.5), (ABE*ALL) 

From Rule 4: ABE*ALL+COUNT+DATE* (ARE*AL) / (BALL+AM) 
From Rule 5: A**-I is not a valid real expression 


The additional rule which is valid for forming real expressions 
but.not for integer expressions is: 


Rule 6: А real variable or constant may be exponentiated by ап 
integer expression. 
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For example: ABE**I, 5.2**K, BABE**(I+J), are all valid real 
expressions. On the other hand B**I**-J and (A**-I) аге not 
valid expressions. 


6.3 Hierarchy of Operations in Expressions 


In a program the value of any expression is calculated by 
executing one arithmetic operation at a time. The order in which 
the arithmetic operations are executed in an expression is called 
the hierarchy of operations. 


The hierarchy is:  Exponentiation (**) FIRST, Multiplication 
(*) and Division (/) SECOND, Addition (+) and Subtraction  (-) 
LAST. 


For example, in the expression A**B/C+D the exponentiation 
is done first, the result is divided by C and then D is added 
which is equivalent to: 


AP + D 
с 


All expressions are examined from left to right. All 
exponentiations are done first. After completion of 
exponentiations the expression is examined again from left to 
right; now all divisions and multiplications are executed. 
Finally all additions and subtractions are done starting again 
from the left of the expression. 


For example, A**B/C+D**E*F-H/P*R+Q would be 


АВ/С + DE < F- H / P * R + Q 


.after the first pass; 


B H 
«Аң + DEF - —R + Q 
С P 


after the second and third passes. 


Use of Parentheses 


Parentheses are used if the order of operations governed by 
the hierarchy rules are to be altered. 
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In an expression which has a single pair of 

4 š € parenthes 
(s can не the parentheses is evaluated FIRST k 
the parentheses the evaluation is governed b ] 
hierarchy. “тады | ot 


For example, in the expression A*B/(C+D**F/G+H)+E the 
expression within the parentheses is evaluated first and results 
in 

F 
рса 
G 


After this the rest of the expression is evaluated from left to 
right using the hiearchy rules. The result will be 


AB 


————— ФЕ 
c+ DF +H 
G 
. If an _expression has many pairs of parentheses, the 
innermost pair is evaluated first, the second innermost next and 
so on till all parentheses are removed. After this hierarchy 


rules are used in evaluating the rest of the expression. 


For example, ((A*B)+C/(D**F+G)+A)/B+C will be evaluated 
follows: jv 


First Evaluation: AB DF+G 
Second Evaluation: е 
DF + (e 
С 
Third Evaluation: АВ + + А 
DF+G 
с 
Fourth Evaluation: АВ + ЖА 
pF«c 


سس 


B 
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c 


Last Evaluation: AB + + A 


DF+G 


B 


The operators + and - may also be used as ипагу operators 


and precede the operands. For example, in -A the minus operator 
is called a unary operator. The unary minus has the lowest 
precedence. Thus -2**4 is evaluated as -(2**4) and the answer is 
-16. 

Some Examples: We will consider some expressions which 


occur frequently in practice which are improperly translated into 
FORTRAN expressions by beginners. 
Example 1: Consider the expression 


1 
dit EX 


A beginner might write an equivalent FORTRAN expression as 1/1+X 
To begin with, this is syntactically wrong. The constant 1 
written without a decimal point is taken as an integer constant. 
The variable name X is that of a real variable. The two cannot 
be added. The constant 1 should be written with a decimal point 
to be interpreted as a real constant. If the decimal point is 
introduced then the expression is written 1./1.+X This 
expression 15 now syntactically right but it does not mean what 
the programmer intended it to mean. The computer will evaluate it 
using the hierarchial rule as У) px Observe that this 
mistake in writing is an error in logic rather than in syntax and 


the compiler cannot detect this error. It will go ahead and 
compute the wrong answer. The correct way (logically and 
syntactically) of translating the expression is 1./(1.+х) The 


parentheses enclosing the denominator expression are essential. 
Eventhough the expression 1./(1.+Х) is correct it is preferable 
to write it as 1.0/(1.0*X) which is more readable. 


Example 2: Consider the expression 


а + b 
а "= Б 


A translation of this into FORTRAN, which is syntactically 
correct, might be A+B/A-B This will be evaluated. аз  A*(B/A)-B 
is not what the programmer intended. The expression 


which 5 
A+B/(A-B) is also a wrong translation as the expression evaluated 
would be B The correct expression is (A+B) / (А-В) 


== 
A A-B 
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Example 3: Consider the expression a2 + b2 - 2ab. A careless 
programmer might translate this into A**2.0 + B**2.0 - 2A*B. 
This has two syntactic errors. The expression 2A*B has no 
meaning syntactically. It is to be written as 2.0*A*B. An 
operator is required; it cannot be assumed to be present. The 
constant 2 should be in real mode. Thus it must be written with 
a decimal point. After this correction the expression is 
syntactically correct and does what the programmer intended it to 
do. But a better way of writing it is: 


деко + BgB**21— 270*A*B 


Observe that exponentiation may be done with an integer. This is 
in fact more efficient from the point of view of computer 
evaluation. If the exponent is in integer mode the computer 


evaluates the expression (A**2) by successive multiplication. If 
the exponent is in real mode, however, the computer evaluates Xt 


by using the formula aP - eblna which is time consuming. If та? 
is negative this method is not valid. Thus whenever а real 
variable is raised to a real power the variable should have a 
positive value. For example A**B will be invalid if А is less 


than zero. The expression (-1.0)** A is obviously invalid, 


Example 4: Consider the expression 
(-a)nx-i 
р+а 


А careless programmer may write equivalent FORTRAN expressions 

as -A**N*X**-I/P-*Q. This has a syntax error. X**-I is incorrect. 
After correction one пау get -A**N*X**(-I)/P*Q. This is wrong as 
it will be evaluated using rules of hierarchy as: 


–апх 1 


p 


The unary minus will raise a to the power n and append a - sign. 
The correct translation is (-A)**N*X**(-I)/(P4Q) . gn 


Example э: As a last example we will consider а polynomial 


Ñ 4 3 2 
sion: 5x ғы 232 ғ 2309 5E xD *10. A c " 
Анита већ of this expression 15: da eee pee Me Cien 
This, however, 15 an inefficient way of writing a polynomial for 
computer evaluation. This involves a total of 4 addition 
operations and 9 multiplication operations (verify this) 
Another technique of writing the polynomial requires far Пе 227 


65 


number of arithmetic operations. This involves rewriting the 
polynomial as follows: 


5х4 + 3x3 + 2х2 + x410 = 10 + x + 2x2 + 3x) + 5х4 


10 + х(1 + 2х + 3х2 + 5х3) 


10 + x(1 + х(2 + 3x + 5x2) ) 


10 + x(1 + х(2 + x(3 + 5x) ) ) 


Translated into FORTRAN this is 


10.0+ X * (1.0+ X* (2.0+ X* (3.04 5.0*X))) 


The above expression involves only four multiplications and 
four additions. Each operation takes a finite time for execution 
on the computer and reducing the number of operations reduces the 
time needed for the calculation. 


6.4 Arithmetic Statements 


A FORTRAN arithmetic statement has the following form: 
Variable name - Expression 


For example, GROSS = PAY + ALLNCE and MEAN - ISUM/NUMBER are 
arithmetic statements. ВАВЕ +: 1. = BAT * CAT jis not ап 
arithmetic statement as this has expressions on both sides of the 
equal sign. 


When an arithmetic statement is executed, the expression on 
the right of the equal sign is first evaluated and the number 
obtained is stored in the storage location named by the 


variable name appearing on the left of the equal sign. 


Thus when а variable is set equal to an expression, the 
previous value of the variable is replaced by the value 


calculated using the expression. 


The equal sign must thus be interpreted as "is to be 
replaced by" an assignment operator rather than "is equal to". 


For example the arithmetic statement Ј=Ј + 3 means "replace 
J by its previous value plus 3". 


It must be remembered that when an integer is divided by an 
integer a fraction may result. A fraction, however, cannot be 
stored in a memory location with an integer variable name. Thus 
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it is truncated and the integer part is stored. Ав expressions 
are evaluated using hierarchical rules divisions are performed 
before addition and subtraction and the truncated numbers are 
consequently the ones which are used in the final evaluation. 
Thus in the arithmetic statement I = 10 - (I/10) * 10 + (J/5) * 4 
+ К ** (-2) if I = J. = = 13 the computer will proceed with 
calculation as shown below: 


1O — 19/30) = 10 (13725) * 4 + 13 KX (-2) 
TO) = T [У 120, 2 ЛА 50 
8 


I 


Modes of Arithmetic Statements 


In the examples given in the last section the mode о the 
expression to the right of the equal sign was the same as that of 
the variable on the left. This need not be so. 


Rule: An integer expression may be assigned to a real variable 
name. 

Rule: A real expression may be assigned to an integer variable 
name. 


If an integer expression is assigned to a real variable name 
then the value of the integer expression is converted to real 
mode before it is stored in a real variable name. 


For example, if J-4 and K-2 and a statement reads ABE = J/K 
then ABE will be assigned the value 2.0. If J-3 and K-2 in the 
above example then ABE will be assigned the value 1.0 (as J/K 
cannot have a fractional part). 


If a real expression is assigned to an integer variable 
name, the value of the real expression is "truncated" and stored 
in the integer variable. In other words, the fractional part of 
the real number obtained for the expression is chopped off and 
the integer part is stored in the integer variable name. 


For example in the statement ILL = 3.0/2.0, the integer 1 
will be stored in ILL. In the statement KAT = 2.0/4.0, 0 will be 


stored in KAT. 
6.5 Defining Variables 


As noted in Section 5.2 a variable is said to be defined if 
a numerical value has been assigned to it. In other words a 
variable is defined if a number has been stored in the storage 
location corresponding to its name. | 


Unless а variable 15 defined it cannot Ье used in an 
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arithmetic expression. Variables may be defined by input 
statements. 


(e.g., READ statement to be discussed later). 
They may also be defined by the statement; 
Variable name - Constant. 


For example X - 4.5 defines the variable X by storing 4.5 
in the memory location corresponding to X. І-2 similarly 


defines I. 


If all the variables appearing on the right of the equal 
in an arithmetic statement are defined then the variable on 
the left is also defined. It follows, because, when an 
arithmetic statement is executed the numerical value of the 
expression on the right is evaluated and stored in a memory 

location corresponding to the variable on the left. 
For example the statement B = C * D+ E -F defines the 


variable B if C,D,E and F are already defined. 


sign 


6.6 Pre-defined Functions in FORTRAN 


Besides the simple arithmetic operations certain common 
functions of variables are pre-defined in FORTRAN. The method of 
writing such a function is: 


Function name (variable name or expression) 


The type of argument (real or integer) which is allowed 15 
shown in the table defining the functions. 


Some of the commonly used functions and their spellings in 
FORTRAN are listed below: 


SIN(X) 
COS (X) 


EXP (X) 

ABS(X) 
Integer IABS(K) 
Real ALOG (X) 


Real ALOG10 (X) 


Real ATAN (X) 
Real SQRT (X) 
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Integer to 
Real conver- 
sion Integer Real FLOAT (К) 


Real to Inte- 
ger conver- 
sion Real Integer INT(X) 


Integer 
remainder of 
(1/7) Integer Integer MOD (I,J) 


Rounding to 
nearest real Real Real ANINT (X) 


Rounding to 
nearest 
integer Real Integer NINT(X) 


+ х is in radians 


Some examples of use of functions are given below: 


Example: 1 


Consider the expression 


Cotan x2 *Bsin x + tan l(yez) + loge /ж 


In FORTRAN this expression will be written as: 


1.0/TAN(X*X) * SQRT(BETA*SIN(X) ) + АТАМ(У+%) +ALOG (SQRT (X) 
X)) 


Observe that Greek symbols like В are not valid 


FORTRAN. We thus have to replace such symbols is cru in 
variable names. Y arbitrary 
Example: 2 


Mangoes cost Rs.12.70 per dozen. Find the price of a ma 
nearest paisa. ngo to the 


Price of one mango = 12.70/12 = 1.05833 
Price to nearest paisa = 106 paise 


cosT DOZ = 12.70 

cosT ONE - 12.70/12.0 

PAISA COST = COSTONE*100.0 
ROUNDCOST = ANINT(PAISACOST) 
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The sequence of statements above can be replaced by 


ROUNDCOST = ANINT((COSTDOZ/12.0) *100.0) 


Example: 3 


Find the sum of individual digits of the number -315 


N 315 

M IABS (N) 

ISUM = MOD(M,10) + MOD(M/10,10) + M/100 

(MOD(M,10) = 5; MOD(M/10,10) = мор (31,10) = 1; M/100 = 3) 


SUMMARY 
An arithmetic expression in FORTRAN consists of variables 
and constants operated on by + (addition), - (subtraction) 
x (multiplication), / (division) and ** (exponentiation) 
operators. 


Corresponding to the two types of variabl i 

R es 1 FORTRAN, 
namely, integer and real there are two types of Die ressions 
integer and real. P 


Integer expressions are formed using integer variable names 
constants and arithmetic operators. Result of evaluating a 
integer expression must be an integer. 


Real expressions are formed using real variable names 
constants and arithmetic operators. H 


rt is important to remember that there must be an operator 


for each operation to be performed. For exampl Е 
5 е, 

not multiply 2 by A. It should be written Sog e o 

arithmetic operators should not occur in succession 3 о 


example, X** -2 is illegal. 


In evaluating arithmetic expressions the i i 

у ехрк 
evaluated from left to right. Operations ate ye nes 
using the rules of hierarchy of operators  (** first 
*/next, t- last). ý 


Whenever there is a doubt about hierarchy it is advisable to 
enclose a sub-expression in parentheses. Expressions within 
the inner most parentheses are executed first. 

А FORTRAN arithmetic statement has the form 


variable name = expression. 


The expression on the right of = is calculated and CACHE 
the variable name. 
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9. A variable name is said to be defined if it has a 


number 


stored in it. 


10. Many commonly used functions such as SIN, COS, LOG, ABS, 
etc. are available in FORTRAN. 


6.1 Write 


EXERCISES 


FORTRAN expressions corresponding to 


е th i 
algebraic expressions. е following 


(i) 


(iii) 


(v) 


(vi) 


6.2 What 


arithmetic statements? 


(i) 
(ii) 
(iii) 
(iv) 
(v) 
(vi) 
(vii) 
(viii) 


ах+р (ii) ах2 + 2bx +с 
ax-b 
2 H 
mv (iv) x9 + 10х4 + 8х3 + ах + 2 
х2+к2 
ab + с + ef + а3 
а gh х2+у2 
(-1)1 хі (i an integer) 
үз 
the value of I calculated іп the following 
I = J*2/3 + К/А + 6 - J**3/8 (J22 = 
I = B/2. + B*4./A - В + A**3 E 5 ) 
I = J/2 * 4 + 3/8 + J**3 US y 
L = I tJ/K = Û (І-2,2-2 К=2,1=2) 
I = (I*J)/K-L d џ 
I =" Y + Jg ® ТЕІХ(А)/9 = = 
M = м/1000 * 1000 - M m pe CU 
№ = MOD(M,100)+NINT (A) 35 


(М-585,А-85.8) 


Je 
6.3 Write FORTRAN expressions corresponding to the 
algebraic expressions: 


(i) 2.5 19910х + cos 329 + Ix? - y2 | + /2xy 


nc Ixi 
(ii) tan x + sec x + e 


following 


1 23 
Gid (V e-(x-m) 72 6— 


2. 
(iv) .0095 10910 44 + .004 sin Ve 


Ë 


Chapter VII 
Input-Output Statements 


In order to solve a problem on a digital computer 
necessary to transfer the required data from one of its input 
units to its memory. This is done by input-statements. 
Information may be transferred to the memory from one of several 
types of input units. We will, however, confine our discussions 
in this chapter to one form of input, namely, information typed 
on a keyboard of VDU. This is performed by the statement called 
the READ statement. 


it is 


After a program is executed the results of t Р 
are to be transferred from the memory of the а сае 
several output units. This is achieved by output-statements " 
will consider in this chapter one type of output statement n ve 
the WRITE statement, which causes the results to be ERI ба 
a VDU. 


As the two statements are similar, we wi А 
together. Input-output statements consist of iuo снн OR 
executable part anda declarative part. Тан dxScutabi s— an 
commands certain items to be read into the memory An Ed e part 
it. The declarative part gives information on the exact gu. of 
which data will be input or is to be displayed . The decr orm in 
part is called Format statement. Many FORTRAN impleme ba an 
designed for beginners simplify input-output i: Sa RN гопа 
Format need not be specified. When Format is not эрес тед" as 
input data can be presented in a flexible form and the out the 
displayed by the computer in a standard format (to be ех ЕНЕ ів 
later). plained 


In general FORTRAN requires Format statement š 
part o£ input-output statements. Тһе rules for тае ан 
statements will also be discussed later in this book. Fo ese 
r/o statements which do not need explicit FORMAT Р EE 
are known ав list-directed I/O statements. We will discuss Б 
these statements in this chapter. only 


dud. List-directed Input Statements 


The general form of a list-directed input statement is: 


READ(*,*) List 
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This statement causes data to be read from the keyboard and 
assigned to the variables named in the List. 


Example: READ(*,*) A, B, C, I, J 
In the example the list is A, B, C, I, J. 


The values to be assigned to the variables in the list of a 
READ statement are typed on successive columns starting from 
column 1. The values are in the same sequence as in the List and 
are separated by a comma or a blank. If some values remain after 
filling 80 columns of a line they may be continued on the next 


line. A single value, however, should not be split between two 
lines. Hereafter we will use the symbol Б to represent a blank 
column. 


In the example above if the values to be assigned to 
A,B,C,I,J are respectively 5.84, 7х10-3, -.52589, 342, 583 they 
should be typed on a line as shown below: 


5.84, 7.E-3, -.52589, 342, 583 


The .following restrictions should be remembered while 
preparing data 


1. The values should be typed in the same order as 
specified in the list. While typing a particular value 
no column should be left blank. For example the number 
.85935 is typed incorrectly in the following line. 

1234567 
208, Deb, 9 3,5 


2. The numerical values should be within the allowed range 


of values of the real and integer variabl 
example an integer data 123456 is illegal as maps 
the allowable limit. The real data .89E - 99 for 


example 15 also illegal as it is outside the range of 
allowed real numbers. 


3. When an E is punched to assign an exponent at least one 
number should follow it. For example, .85E is illegal. 


4. No value should be split between two lines. For 
example the value .85932 should not be typed as shown 


below: 


First line: 


78 79 80 


74 
Next Line: | 

1 2 3 

9 3 2 


5. À READ statement always causes a new line to be read 

Thus the values corresponding to the lists of two 

different READ statements should not be typed on the 
same line. 


1.2 List-directed Output Statement 


The general form of a list-directed output statement is: 


WRITE(*,*) List 


This statement causes the values of the variables specifi i 
s cif 
the List to be displayed on the video display Er Wr m 


Example: WRITE(*,*)X,Y,I 
In the example the list is Х,Ү,І 


Real numbers are displayed using the exponent Р 
fraction depending on their value. A variable is Күүн u а 


either of the forms given below: in 

The form: 
É + nj n2 n3 n4 05 56: n7 ng ng nio n11 n12 п13' 
is used when the variable magnitude is between 1 and 107. 

The form: 
p + пу nz пз na ns ng n7 Е + пі m2 
is used when the variable magnitude is »107 бє Шан Кап, 1. 
Integer variables are displayed as shown below: 

+ n4 n2 n3 n4 п» 
а Бей... 12 columÁmns-----2-5-2----7 5 
for each variable value 
тп the example considered in this section if the variables 


in the list x,Y,I have the values .12452467 x 106, - = 
452 they are displayed as shown below: ‚ -.0034 x 10-6, 


ри124524. 679-0. 340000E- OS bbEEEBEBEY 452 
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7.3 Displaying Messages 


Alphameric characters may be displayed in the form of titles, 
comments, etc., alongwith numerical outputs. The specification 
used for this is to enclose the information within apostrophes 
('). For example: 

WRITE(*,*) "THIS IS THE SOLUTION' 


would cause the comment THIS IS THE SOLUTION to be displayed when 
the WRITE statement is executed. The statement 


WRITE(*,*) 'THE ANSWER AFTER', N, 'ITERATIONS IS', ANS 
gives as output (assuming N - 30 and ANS - 14.58): 
THE ANSWER AFTER 30 ITERATIONS IS 14.58 
Consider the statement 
WRITE(*,*) IX =", X, "У =", "Z =", 2 
This statement will output 
X = 24.58 Y = 12.45 Z = 11.56 


if X = 24.58, Y = 12.45 and Z = 11.56 


SUMMARY 
L: To input data into a computer a statement of the type: 
READ(*,*) A,B,C,I 
is used. This reads data typed on a keyboard of a VDU and 


stores them in A,B,C,I respectively. This statement 15 
known as a list directed input. 


21 Reals are read either in fractional or exponent notation. 
Integers are input without decimal point. 


35 Data is input in the same order as variable names in the 
READ statement. 


4. Data stored in memory are displayed оп a VDU by a statement 
of the type: 
WRITE(*,*) A,B,C,I 


This statement will display the numbers stored in А,В,С,І 
using a standard format. 
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5. Messages may be displayed on a VDU by a statement 


WRITE(*,*) 'THIS IS А SOLUTION' 


Messages are enclosed in quotes. 


Chapter VIII 
Simple Computer Programs 


Now that we know how to read data for a program and write 
the results computed by the program we are in a position to write 
short FORTRAN programs. In this chapter we will combine the 
ideas presented in the previous chapters to write complete 
programs which can be run on a computer. 


8.1 Example Programs 


Example 8.1: 


As the first example we will write a program to add the 
digits of a given integer. For example, if a given number is 
4675 then the sum of digits is 5+7+6+4 = 22. The method is to 
first find the least significant digit of the number. This can be 
found by using the fact that integer division in FORTRAN gives 
only the integer quotient. Thus 4675/10 = 467. If we multiply 
this by 10 we get 4670. The least significant digit can be found 
by subtracting 4670 from 4675. Thus for any positive integer N, 
the least significant digit = N-(N/10)*10. This idea is used in 
Program 8.1. 


The trace of the program is given as Table 8.1. 


Example 8.2: 


As а second example we write a program to deduct a given 
percentage of pay of an individual and add a given allowance. 
The result is to be given in Rs. and nearest ten paisa. For 
example, if the pay is Rs.2555 and percent to be deducted is 
12.5% and the allowance is Rs.552.50 then: 


2555 = 2555 % .125 + 552.50 
2788.125 


Net Pay 


To the nearest ten paisa, 1% will be Rs.2788 ps.10. If paisa is 

15 or above it should be rounded to 20 paisa. The program is 

easy to write. The only interesting aspect is to round the 

answer to nearest ten paisa. This is done by converting the net 

pay to paisa adding 5 paisa and truncating to the nearest ten 
py 
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Line Fortran Statement 
Number 


1 М 

C *** EXAMPLE PROGRAM 8.1 

C *** FINDING SUM OF DIGITS OF A NUMBER 

с THIS PROGRAM SUMS DIGITS OF А FOUR DIGIT NUMBER. 
с 

с 

с 


1 

2 ІТ USES PROPERTY OF INTEGER DIVISION. 
8 THE SIGN OF THE NUMBER IS TO BE IGNORED. 
4 LEAST SIGNIFICANT DIGIT = N – (N/10)*10 
5 INTEGER SUM 

6 READ(*,*) NUMBER 

те THE NUMBER WITH + SIGN IS STORED IN N 
8 N — IABS(NUMBER) 

9 LSD1 = N - (N/10)*10 

10 N = N/10 

11 LSD2 = М - (N/10)*10 

12 N = N/10 

13 1508 = М - (N/10)*10 

14 LSD4 = N/10 

15 SUM = LSD1 + LSD2 + LSD3 + LSD4 

16 WRITE(*,*) 'GIVEN NUMBER = ',NUMBER 

17 WRITE(*,*) 'SUM OF DIGITS = ',SUM 

18 STOP 

19 END 


Program 8.1 Finding sum of digits of a number 


paisa. For example, if the net pay in paisa is 258488 then 
integer dividing by 100 gives quotient of 2584 which is the rupee 
part of NETPAY. The remainder is obtained by using the function 
MOD. Thus MOD(258488, 100) = 88 is the paisa part of NETPAY. To 
get the paisa to nearest ten paisa we add 5 paisa. If the paisa 
is less than 85 then adding 5 paisa gives a sum less than 89. If 
the paisa is 85 or more the sum is 90 or more. If the result 
obtained after adding 5 paisa is integer divided by 10 and then 
multiplied by 10 we get the result to the nearest ten paisa ав 
shown below: 


((84+5)/10) *10 = (89/10)*10 = 8*10 = 80 
((88+5)/10) *10 = (93/10)*10 = 9*10 = 90 
((85+5)/10) *10 = (90/10)*10 = 9*10 = 90 


This idea is used in Program 8.2 in line 16. 


Observe that the variable names used in the program are 
meaningful. In formulating meaningful names it is necessary to 
declare them as REAL or INTEGER as appropriate. For example, 
RUPEES unless declared integer will be assumed to be REAL Ьу 
FORTRAN. Only the first six characters in a variable name are 
significant. Thus if ме had written NETPAYINPAISA instead of 
PAYINPAISA at line 9 of Program 8.2 the same memory location 


Input:  -4675 


Condition test/Output 


GIVEN NUMBER - -4675 
SUM OF DIGITS 


STOP 


would have been assigned to both NETPAY and NETPAYINPAISA as the 


first six characters in the two names are identical. Observe 
that in line 9 the expression on the right of = is а real 
expression. It is truncated after computation and stored in the 


variable name PAYINPAISA which is declared INTEGER. Finally 
observe that quantities which can vary such as PAY, ALLOWANCE and 
RATE are fed as data using a READ statement. For example, if the 
rate of deduction.is 18.5% and we write line 7 as: 


DEDUCTION = PAY * 0.185 


it is correct. However, if the rate changed to 16.5% then we 


have to rewrite line 7 in the program and recompile the program. 
This is not necessary in the way Program 8.2 is written. Any 


change in RATE can be accommodated without changing the program. 
Only the data corresponding to RATE should be changed. 


Line Fortran Statement 


L 7 
C *** EXAMPLE PROGRAM 8.2 
C *** TO CALCULATE NETPAY FROM GIVEN DATA 
1 с THIS PROGRAM ADDS ALLOWANCES ТО PAY 
2 с AND DEDUCTS А GIVEN PERCENT OF PAY 
3 с TO FIND NETPAY RESULT ТО THE NEAREST PAISA 
4 REAL NETPAY 
5 INTEGER PAYINPAISA,RUPEES,PAISA,TENPAISA 
6 READ(*,*) PAY,ALLOWANCE,RATE | 
7 DEDUCTION = PAY*RATE/100.0 
8 NETPAY = PAY + ALLOWANCE - DEDUCTION 
9 PAYINPAISA = NETPAY*100.0 
PAYINPAISA DECLARED INTEGER.THUS IT WILL STORE PAY IN 
WHOLE PAISA.INTEGER DIVISION BY 100 GIVES RUPEES PAY. 
12 RUPEES = PAYINPAISA/100 


к. 
о 
aa 


187 6 MOD FUNCTION GIVES REMAINDER OF DIVISION 

14 PAISA = MOD(PAYINPAISA,100) 

15 С THE FOLLOWING STATEMENT ROUNDS PAISA TO NEAREST TENPAISA 
16 TENPAISA = ((PAISA + 5)/10)*10 

17 WRITE(*,*) 'NETPAY =RS.',RUPEES,' PS.', TENPAISA 

18 STOP 

19 END 


Program 8.2 Netpay calculation 


° А А 
The trace of Program 8.2 is given in Table 8.2 with assumed 
input data. 


Example 8.3 


We will consider аз the next example summing of а small 
series. The series is 


[t is possible to write a program to compute this as shown below: 


The program given above is not recommended as it is very 
inefficient. For example, in term 3, in line 2, x**4 is computed 
by multiplying X with itself four times whereas (x*x) is already 
calculated in the previous term which could have been used. 


С i ted without usi жж 

rl x**6 is calcula witho using x**4 already 
petet! The denominator also is inefficiently calculated. 
VAM fast that n! = (п (n-1)) (n-2!)is not used by the program. 
The program is thus rewritten as Program 8.4. In this program a 


in the series is calculated using the previous term. 


term For 


Input: 2555, 


N 


Program 


565, 


Line No. 


س соо‏ & 300 ص 


8. 


Output 


NETPAY-Rs.2800PS.60 


3 


Table 8.2 : Trace of Program 8.2 


12.5 


Numbers stored in Variable Names 


PAY = 2555, ALLOWANCE = 565, RATE = 


DEDUCTION = 2555*0.125 = 319.375 


NETPAY = 2555+565-319.375 = 2800.625 


PAYINPAISA = 280062 


RUPEES - 280062/100 - 2800 


PAISA - MOD(PAYINPAISA,100) 
- MOD(280062,100) - 62 
TENPAISA ((62+5)/10) *10 


6 * 10 = 60 


Fortran Statement 
1 TÈ 


C *** EXAMPLE PROGRAM 8.3 
C *** SUMMING OF A GIVEN SERIES 


READ(",*) X 
$0М=1-Х*Х/2.0+Х**4/24.0-Х**6/(30.0*24.0) 
Ј +X**8/(56.0°30.0°24.0) 

2 —-X**10/(90.0*56.0*30.0*24.0) 

3 -4X''12/(182.0*90.0*56.0*30.0*24.0) 
WRITE(*,*) SUM 

STOP 

END 


Computing sum of series - inefficient method 
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Line No. Fortran Statement 

1 7 

C *** EXAMPLE PROGRAM 8.4 

C *** IMPROVED PROGRAM TO SUM SERIES 

С X*X IS STORED IN XSQUARE 
READ(*,*) X 
XSQUARE=X*X 
X4=(XSQUARE*XSQUARE)/24.0 
X6-(XSQUARE*X4)/30.0 
X8-(X6*XSQUARE)/56.0 
X10=(X8*XSQUARE)/90.0 
X12-(X10*XSQUARE)/(11.0*12.0) 


S=1.0-XSQUARE/2.0+X4-X6+X8-X10+X12 
WRITE(*,*) 'S=',S 

STOP 

END 


«(0-100 b o N = 


--- 
оно 


Program 8.4 Computing sum of series - efficient method 


example: 


8! 6! 56 


The student is urged to trace the above program with x = 2.0 


Example 8.4 
It is required to calculate 
Cos Ті - Sin(0*) 
F= 4 


tan ¢ + 22.5 


with x = 2.2, Ө = 3.5 degrees, P= 0.2 radians, 2 = 0.00334 


A program to compute the above expression is 


given as 
Program 8.5. 


Observe that in Program 8.5 we have calculated the numerator P 


and the denominator Q of the expression for F to 


ensure better 
readability of the program. 
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Line No. Fortran Statement 
І Ж 
C *** EXAMPLE PROGRAM 8.5 
C *** CALCULATION OF AN EXPRESSION. 
с TRIGNOMETRIC FUNCTIONS NEED ARGUMENT- 
C VALUE IN RADIANS. 
READ(*,*) X, THETA,PHI,Z,PI 
RADTHETA = THETA * (Р1/180.0) 
P = COS( EXP(-X'X) ) - SIN( RADTHETA + PI/4.0 ) 
Q = TAN( PHI J + Z**2.5 
Е = P/Q 
WRITE(*,*) ЈЕ = ЈЕ 
5ТОР 
END 


ооозолњоо н 


m 


Input Data 
2.2,35.0,0.2,0.0034,3.141592 


Program 8.5 Illustrating use of Fortran functions 


SUMMARY 


A complete FORTRAN program has input, computation and output 
statements. 


Names for variables in programs must be chosen such that 
it is obvious to a reader what they represent. For 
example, SUM, NUMBER, PAISA, ‘RUPEES etc. have obvious 
meanings. 


Quantities which may vary in a program must always be 
assigned a variable name and read as data. For example, a 
quantity such as rate of deduction, eventhough it may 
be fixed at a particular time has a tendency to change and 
thus must be read into a variable name. 


Comments аге useful at appropriate places, particularly 
at the beginning of a program. 


Calculations should not be unnecessarily repeated. 


Complicated expressions should be broken up to improve 
readability. 


EXERCISES 


The values of a, b, с, а, e and f to be read in are 
-192.53*10-4, -145.6%104, 000042, 4234567.8, 

4235.8492, -9942.3485. Write a program to calculate 

91 = a*b/(c*d)*e-f; 92 = a/(b*d)-d and display the 
values of g4 and go. 
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Mr. Gupta deposits Rs.100/- in bank A. 
simple interest of 5% per annum. 
determine the amount in Mr. 
5 years. 


The bank gives 
Write a program to 
Gupta's account at the епа of 


(ii) Mr. Agarwal deposits Rs.100/- in bank B. The bank 
gives compound interest of 3% annually. 
program to determine the amount in Mr. 
account at the end of 5 years. 


Write a 
Agarwal's 


(iii) Mr.  Bajaj deposits Rs.100/- in bank C. The bank 
gives compound interest of 2-1/2% compounded every 
three months. Write a Program to determine the 


amount in Mr. Bajaj's account at the епа of 5 
years. 


(iv) If the interest rates of banks А,В and C had been 
6%, 4% and 3% respectively what Will be the balance 
in the three people's accounts? 


Write а program to convert Fahrenheit 
Celsius. 


temperature to 
Write a program to convert pounds to kilograms. 

Write a program to convert an amount given in Pounds and 
pence to Rupees and Paise (one Pound = Rs.20.85). 
(Exchange rates fluctuate) 

Write a program to compute 


1 2: 
e7 (xm) /o for x = 1.5 


Chapter IX 
Control Statements 


The order in which statements in a FORTRAN program are 
executed is extremely important. Normally the statements are 
executed sequentially as written in the program. In other words 
when all the operations specified in a particular statement are 
executed, the statement appearing on the next line in the program 
is taken up for execution. This is known as the normal flow ОБ 
control. If опе were restricted to this normal flow of control 
there would be no flexibility in programming. It is the 
possibility of changing the sequence of execution of statements, 
based оп decisions, which gives power to programming. In this 
chapter we will discuss statements which allow us to control the 
sequence of execution of FORTRAN statements. 


9.1 A Program with a control statement 


We write as Program 9.1 a program which, given two numbers, 
finds out the larger number. 


Observe the statement in lines 2 to 8. This entire set of 
lines is called an IF statement. This statement commands that 
if A is greater than B then the statements following THEN upto 
ELSE should be executed and then the control should branch to the 
statement following ENDIF which signifies the end of the IF 
Statement. If А is not greater than B then the statements 


Line No. Fortran Statement 
1 7 
C *** EXAMPLE PROGRAM 9.1 
C *** FINDING LARGER OF TWO NUMBERS 


1 READ(*,*) А,В 

2 IF (A.GT.B) THEN 

3 WRITEC,*) ЈА = A, B = ',В 

4 WRITE(*,*) "А IS GREATER THAN В 

5 ELSE 

6 WRITE(*,*) В= B, A = "А 

7 WRITE(*,*) "В IS GREATER THAN OR EQUAL ТО А" 
8 ENDIF 

9 STOP 

10 END 


Program 9.1 Finding larger of two numbers 
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following ELSE upto ENDIF should be executed and control should 
then branch to the statement following ENDIF. We will discuss 
this statement in detail soon. 


9.2 Relational Operators 
In the line IF(A .GT. В) THEN we have used a relational 
operator .GT. which is the FORTRAN equivalent of the mathematical 


symbol >. А number of such relational operators are available in 
FORTRAN and are listed in Table 9.1. 


athematical Meaning FORTRAN equivalent 
symbol 
> greater than .GT. 
> greater than or equal to TOER 
< less than .LT. 
< less than or equal to “ПЕ: 
= equal to .EQ. 
ж not equal to .NE. 


Two real ог integer variables, constants ог expressions 
connected Ьу а relational operator leads to an assertion which 
can be either true or false. For example, the expression N.LE.K 
can be either true or false and does not have a numerical value 
Similarly the expression INDEX.EQ.4 would be true if INDEX has a 
value 4 else it will be false. Note that the symbol .EQ. is 
distinct from the symbol - used earlier. The symbol .EQ. is a 
relational operator used to compare the values of variables (or 
constants) whereas the symbol = is used to signify the assignment 
operation. Thus A=B means assign the value of B to A whereas 


A.EQ.B checks for the arithmetic equality of A ang 
expression formed with a relational operator is қасы os м 
logical expression. Some valid logical expressions are given 
below: Ç 

(i) A.GE.B 


(ii) K.GE.J 
(iii) (A+B/C) .LE. (C+D*F) 
(iv) A.LT.0.5 


Im general two integer or real expressions may be 
relational operator. Mixing reals and intem 1 sa 


OW. s normally not allowed. 


expression i 
Some illegal logical expressions are given below. т 
reader should find out why they are not valid. ne 


(i) 2.OLT.B 
(ii) (A+B) .GN. (C+D) 
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(iii) 2.LT A 
(iv) A-C 


9.3 Logical IF statement 
Rule: The general form of a logical IF statement is: 


IF (e) THEN 
stl 

5,2 

stn 

ELSE 

5Е1 

512 


sfk 
ENDIF 
where e із a logical expression and stl, st2, T SUD 5Е1 


sf2 ... sfk are FORTRAN statements.  ENDIF signifie 3 
end of the IF statement. S the physical 


In Program 9.1 (e) is (А.СТ.В); stl and st2 a , 
4, sf1, sf2 are lines 6 and 7. re lines 3 and 


The logical If statement is interpreted as follows: 


If the logical expression e is true then the stat 
st2, st3 ... stn are executed and control passes to Ба etes Me 
following ENDIF. If e is false then the statements sf1,sf2 s 5 
are executed and control passes to the statement following ке: 


Sometimes when the logical expression e is true one would 


like to execute only stl, st2...stn. In such c 
the following form of the IF statement. ases one may use 


IF (e) THEN 
stl 
st2 


stn 
ENDIF 


The flow chart of Fig.9.1(a) illustrates the first form of 
the logical IF statement and Fig.9.1(b) the second form of the 


logical IF statement. 
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Statement 
following 


ENDIF 


(a) 


Fig. 9.1(a) Illustrating IF..THEN..ELSE structure 


А further special case occurs when in t 
IF statement of the above type there is only оке ПЕН раге of the 
the statement is: atement, i.e., 


IF (e) THEN 
sti 
ENDIF 


This special case of IF can also be written in the simpler form: 
IF (e) sti 
The flow chart for this special case is shown as Fig.9 1(c) 


A number of valid logical IF Statements are given below 


(i) IF (A. GE.B) THEN 
X = Y + 7 
EE QE К 


Statement 
following 


ENDIF 


(b) 
Fig. 9.1(b) Illustrating IF..THEN structure 


ELSE 
P E У аи 
P=Q# Вв 
ENDIF 
(ii) IF (P.LT.Q) THEN 
ВТ 
ЕМОТЕ 
(iii) IF (M.NE.N) THEN 
IF(K.EQ.L) THEN 
Q=7 * P 
ENDIF 


The following are invalid logical IF statements: 


(i) IF (A.GE.B) 
THEN X= Ү+2 
ELSE X- Y-Z 

ENDIF 
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Statement 
next to 
IF statement| 


(c) 
Fig. 9.1(c) Illustrating IF(e) sti structure 


(THEN must be in first line. ELSE must be in a Separate lin ) 
е). 


(ii) IF (A.GE.B) THEN X=Y+Z 
ELSE 
X-Y-Z 
ENDIF 
(statement for THEN part must be in a separate line) 


(iii) IF (I.EQ.J) THEN 
P=Q+R 
IF (K.EQ.M) THEN 
5 = у+т 
ENDIF 
(ENDIF for inner IF missing) 


(iv) IF (A.LT.Q) THEN 
X = P-R 
B= C+D 
(ENDIF missing) 


(у) IF (A.GT.B) THEN P-Q ELSE рер 
(P-Q, ELSE, P-R, ENDIF must be in 7 x" 
ines) 
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(vi) IF (A-B) THEN P=Q+R 
ENDIF 
(P=Q+R must be in a separate line. A=B must be written 
as A.EQ.B) 


9.4 Illustrative Examples 


The reader at this stage is urged to review Programs 4.3 апа 
4.4 of Chapter IV which use logical IF statements. These two 
programs use two forms of logical IF statements. 


Example 9.2 


As another example we give the  FORTRAN equivalent of the 
flow chart  (Fig.2.8) which is reproduced here again for ready 
reference as Fig. 9.2. The program corresponding to this flow 
chart is given as Program 9.2. This program has two types of 
logical IF statements. A new statement in this program is 
GO TO 10. This statement commands that control should branch to 
the statement with number 10. This is an unconditional branch 
statement. Observe the indenting in the IF statement. This 
indenting is бо improve the readability of the program. The 
syntax of FORTRAN does not require it. The reader is reminded 
that blanks are ignored in FORTRAN statements (Except in messages 
given within quotes). A trace of this program with sample data 
is given as Table 9.2. 


Line No. Fortran Statement 
1 7 
C *** EXAMPLE PROGRAM 9.2 
1 C *** FINDING LARGEST OF N NUMBERS 
2 с ALL VARIABLES ARE ASSUMED TO 
3 INTEGER COUNT,BIG,X BE INTEGERS 
4 READ(*,*) N,X 
5 BIG = X 
6 COUNT = 1 
7 10 IF (COUNT.EQ.N) THEN 
8 WRITE(*,*) 'LARGEST NUMBER = ' BIG 
9 STOP 
10 ENDIF 
11 READ(*,*) X 
12 COUNT = COUNT + 1 
13 IF (X.GT.BIG) BIG = X 
14 GO TO 10 


END 


Program 9.2 Finding largest of N numbers 
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Fig. 9.2 Flow chart to pick largest of N numbers 


Example 9.3 


Ав the next example we take the solution of a quadratic 
equation for which a flow chart was given in Chapter II 
(Fig.2.10). The flow chart is reproduced as Fig.9.3 for ready 
reference. À program corresponding to this flow chart is given 
as Program 9.3. 
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Input Data: 
N 4 


X = 8, —9% T1. 7 


Numbers stored in Variable Names 
МЕЕ с 


Condition test/Output 


? 
е 
1 
1 
1 
2 
(-9 GT. 8) ? false 2 
branch to line 7 2 
(2 ЈЕО. 4) 2 false 2 
2 
3 
(11 .cT. 8) ? true 3 
branch to line 7 3 
(3 ЈЕО. 4) 2 false 3 
3 
4 
(7 .GT. 11) ? false 4 
branch to line 7 4 
(4 .EQ. 4) ? true 4 
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Deme» 


х b/a 


x, < Уа/га 


Write message 


“Complex Conjugate 
Roots’ 


Write message 
“Real Part’ 


Write message 
“Imaginary Part’ 


es 


Write message 
“Linear Equation 
One Root’ 


Write message 
“Real Roots’ 


Write x 


Flow chart for solving a quadratic equation 
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C *** EXAMPLE PROGRAM 9.3 
C *** SOLUTION OF QUADRATIC EQUATION 
READ(*,*) A,B,C 
IF (A.EQ.0) THEN 
X = (-C/B) 
WRITE(*,*) 'LINEAR EQUATION,ONE ROOT' 
WRITE(*,*) 'ROOT=',X 
STOP 
ENDIF 
D = ВВ - 4.0*А*С 
IF (D.GE.0) THEN 
ROOTD = SQRT(D) 
X1 = (-B+ROOTD)/(2.0*A) 
X2 = (-B-ROOTD)/(2.0* A) 
WRITE(*,*) 'REAL ROOTS' 
WRITE(*,*) 'X1=',X1,'X2=',X2 
ELSE 
D = -D 
ROOTD = SQRT(D) 
X1 = -B/(2.0*A) 
X2 = ROOTD/(2.0*A) 
WRITE(*,*) 'COMPLEX CONJUGATE ROOTS' 
WRITE(*,*) 'REAL PART XR=',X1 
WRITE(*,*) IMAGINARY PART XI-',X2 
ENDIF ; 
STOP 
END 


Program 9.3 Solution of a quadratic equation 


Example 9.4 


Let us take as the last example an algorithm to sum the 
series: 


S = 3x + 5x2 + 7x3 + 9x4 + 11×5 + 13×6 


One way in which a program may be written to sum this series 15 
given in p.97. Eventhough this is a correct program it is not а 
good program. Its main defect is that it is not easy to 
generalise. If the number of terms is increased by even one ме 
have to rewrite the program. 


A method of obtaining a more general program is to first 
evolve a flow chart. In order to do this we observe that the 
coefficients of successive terms follow a regular progression. 


The powers of х are also regular. Coefficient of ith term = 
coefficient of (1-1) 8 term +2. Power of x of ith term = 1+Power 
of x of (i-1)'? term. We may thus derive Fig.9.4 which would sum 
the series upto ап arbitrary number of terms. The number of 
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COEFF - 3. 
XPOWER = X 
SUM = 3.0xX 
COUNT 


Fig. 9.4 Flow chart for summing power series 


terms in the series is read into N by the first 
The student should 


READ 
in 


command. 
trace the flow chart manually as illustrated 
Chapter II and convince himself of its validity. 


i i P В А FORTRAN 
program corresponding to this flow chart is given as ан д. 


In this section in Programs 9.2 and 9.4 we had a 


Statement 


9% 


C *** EXAMPLE PROGRAM 9.4 
C *** SUMMING SERIES 


READC,') X 

XSQR = X'X 
XCUBE = XSQR'X 
XFOUR = XCUBE'X 
XFIVE = XFOUR'X 
XSIX = XFIVE'X 


FSTSUM = 3.0*Х + 5.0°XSQR + 7.0'XCUBE 
SECSUM = 9.0'XFOUR + 11.0'XFIVE + 13.0°XSIX 
SUM = FSTSUM + SECSUM 

WRITE(*,”) SUM 


STOP 
END 
Program 9.4 Summing series - loopless program 
60 то 10: The details of syntax rules of this statement is 


discussed in the next section. 


С *** EXAMPLE PROGRAM 9.4A 
C *** SUMMING SERIES 
READ(*,*) ХМ 
COEFF = 3.0 
XPOWER = X 
SUM = COEFF'XPOWER 
KOUNT - ! 
10 XPOWER = XPOWER'X 
COEFF = COEFF+2.0 
SUM = SUM + COEFF*XPOWER 
KOUNT = KOUNT+1 
IF (KOUNT.EQ.N) THEN 
WRITE(*,*) 'SUM-',SUM 
STOP 
ELSE 
GO TO 10 
ENDIF 
END 


Program 9.4A Summing series - use of a loop 


9.5 GO TO Statement 


In the programs in the last section there was a statement : 
GO TO 10. This statement achieves an unconditional transfer of 
control to the statement labelled 10. In other words when the 
program commands GO ТО 10 the next statement executed 15 the 
statement labelled 10. 


Rule The GO TO statement is written in the form GO TO D where n 
is a statement number of an executable FORTRAN statement. 
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Blanks between GO and TO are optional. The student is 
reminded that in all FORTRAN statements blanks are ignored except 
when specifically mentioned. 


By an executable statement we mean a statement which 
commands the computer to do something. It is not а statement 
which merely gives information to the compiler. The statements 


we have encountered so far which merely give information to the 
compiler are: 


(i) TYPE declaration (INTEGER or REAL) 
(ii) END statement 
(iii) ENDIF statement 


These are known as non-executable statements. All the 


other 
statements we have encountered so far are executable. 


At the beginning of this section we noted that in a со TO 
Statement ме use a statement label to label a statement to which 


control should branch. Any statement in FORTRAN program may be 
labelled by a statement number. A statement number is usually 
used when we want to refer to a statement. А statement number 
may be upto 5 digits long. It may be typed anywhere between 
columns 1 апа 5. The method of writing a statement number 15 
illustrated below: 
20 3* Б-р ON 78-9 
Ц 1 ' 
1 1 1 
| әтер | Statement 
i i i 
| Statement | I 
| number I | 
А statement number should be an unsigned non-zero i 
The following are valid statement numbers: integer. 
(1) 12 (а) 2 (111) 2000 (іу) 49999 
The following are invalid (why?) 
(up 0 (а) =52 (iii) +95 (iv) IJ 
(v) 1,425, (мі) 949948 (vid) 125 x 


Note that the statement number is a 1. 
refer to a statement. Thus if a statement exte 
z А п 
more lines, only the first line should have a ned T» 
Statement numbers in a program need not be in ascendi 
they may Бе in any order. The same statem Селе OE? 
however, be assigned to two different Statements ? 
statements are labelled only when a reference DIS NE Usually 
them during execution of a program. The rules or the E = 
language, however, allow us to give a statement number КОДАН 
statement. po 


abel which is used 
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The following are invalid GO TO statements (why?) 


GO TO 949494 
GO TO 10+5 


9.6 Nested logical IF statement 


The block of statements between an IF statement апа the 
corresponding ENDIF statement is known as the IF block. Within 
an IF block there could be other IF blocks. Care should be 
exercised in such nesting. 


We illustrate use of nested IF blocks with some examples. 
In Chapter 11 we obtained a flow chart to pick the largest of 
three numbers. We reproduce the flow chart here as Fig.9.5. А 
FORTRAN program corresponding to this flow chart is given as 


Program 9.5. 


Fig. 9.5 Flow chart for picking the largest of three numbers 
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C *** EXAMPLE PROGRAM 9.5 
C *** PICKING LARGEST OF THREE NUMBERS 
с USE ОЕ NESTED IF STATEMENTS 
READ(*,*) A,B,C 
IF (A.GT.B) THEN 
IF (A.GT.C) THEN 
WRITE(*,*) "LARGEST = ',A 
STOP 
ELSE - 
WRITE(*,*) 'LARGEST 
STOP 
ENDIF 
ELSE 
IF (B.GT.C) THEN 
WRITE(*,*) 'LARGEST NUMBER = "B 
STOP 
ELSE 
WRITE(*,*) 'LARGEST NUMBER = ',C 
STOP 
ENDIF 
ENDIF 
STOP 
END 


Program 9.5 Finding largest of three numbers 


II 
° 


Line No. Fortran Statement 
1 T 
C *** EXAMPLE PROGRAM 9.6 


1 C *** FINDING IF LEAP YEAR 

2 с THE NUMBER OF DATA TO ВЕ INPUT IS N 

3 INTEGER YEAR 

4 READ(*,*) М 

5 50 READ(*,*) YEAR 

6 с CHECK IF YEAR IS DIVISIBLE BY 100 

7 IF (MOD(YEAR,100).EQ.0) THEN 

8 IF (MOD(YEAR,400).EQ.0) THEN 

9 WRITE(*,*) YEAR,' IS A LEAP YEAR' 

10 ELSE 

11 WRITEC,*) YEAR,' IS NOT A LEAP YEAR' 
12 ENDIF 

18 ELSE 

14 IF (MOD(YEAR,4).EQ.0) THEN 

15 WRITE(*,*) YEAR,' IS A LEAP YEAR' 

16 ELSE 

17 WRITE(*,*) YEAR,' IS NOT ' 
is XNDIÉ A LEAP YEAR 
19 ENDIF 
20 М = N-1 
21 IF (N.EQ.0) GO TO 100 
22 GO TO 50 
28 100 WRITE(*,*) 'ALL DATA OVER' 
24 STOP 


END 


Program 9.6 Finding if a given year is a leap year 
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Observe in the above program that we have two IF blocks nested 
within a larger IF block. Each IF block is enclosed between the 
IF and its corresponding ENDIF statement. 


As another example let us consider the problem of finding 
out if a given year is leap year or not. The definition of a leap 
year is: If a year is divisible by 4 it is a leap year. However, 
if the year is divisible by 100 (e.g. 1500, 1600 etc.) then such 
a year should be divisible by 400 to be a leap year. Thus the 
year 1900 is not a leap year whereas the year 2000 is a leap 
year. The definition is written as the FORTRAN Program 9.6. A 
trace of Program 9.6 is given for various values of YEAR in 
Table 9.3. This will clarify the flow of control in Program 9776: 


Input Data: 
N= 4 
YEAR: 1954, 1984, 1800, 2000 


Condition test/Output N 
4 

5 4 
7 |MOD(YEAR,100).EQ.0? false 4 
14 |MOD(YEAR,4).EQ.0? false 4 
17 |1954 IS NOT A LEAP YEAR 4 1954 
oe 3 1954 
21 |N .EQ.0? false 3 JOBA 
22 |co TO 50 (line 5) 3 1954 
2 3 1984 
7 |MOD(YEAR,100).EQ.0? false 3 1554 
14 |MOD(YEAR,4).EQ.0? true 3 1554 
15 |1984 IS А LEAP YEAR 3 4254 
20 2 1984 
21 |М.Е0.07 false 2 1984 
22 |со TO 50 (line 5) 2 1984 
5 2 1800 
7 |MOD(YEAR,100).EQ.0? true 2 1800 
8 (MOD (YEAR, 400) .EQ.0? false 2 1800 
11 |1800 IS NOT A LEAP YEAR 2 1800 
20 Ж 1800 
21 |М.Е0.0? false T 1800 
22 |со TO 50 (line 5) 1 1800 
5 1 2000 
7 |MOD(YEAR,100).EQ.0? true 1 2000 
8 |MOD(YEAR,400).EQ.0? true 1 o 
9 AR 
ы 2000 І5 А ҺЕАР ҮЕ 2 2066 
21 |N.EQ.0? true 0 2000 
23 |ALL DATA OVER 0 | 
24 STOP | 


ICM д о ________-----__________ о оци ^^“ 
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ConSider the flow chart of Fig.9.6. This flow chart may be 
translated as the program of segment of Fig.9.7. 


Fig. 9.6 A flow chart to illustrate use of ELSE statement 


IF (A.GT.O) THEN 
Р=1 
ELSE 
IF (B.GT.O) THEN 
P=2 
ELSE 
P=3 
ENDIF 
ENDIF 


Fig.9.7 Program segment 1 for flow chart of Fig.9.6 


The flow chart may also be expressed as: 


IF (A.GT.O) THEN 
Р=1 
ELSEIF (B.GT.O) THEN 
Р=2 
ELSE 
Р=3 
ENDIF 


Fig.9.8 Program segment 2 for flow chart of Fig.9.7 


In the form given in Fig.9.8 we have a new statement ELSEIF. In 


103 


Fig. 9.9 Flow chart for nested IF statements 


this case the ELSEIF is considered a part of the first IF block 
and only one ENDIF corresponding to the first IF is required 


The form of Fig.9.7 is more general. Consider 
chart of Fig.9.9. This can be coded in FORTRAN using us Nac: 
form as shown in Fig.9.10. 


Q-0 
IF (A.GT.O) THEN 
Р=1 
ELSE 
IF (B.GT.O) THEN 
Р=2 
ELSE 
Р=3 
ENDIF 
Q-3*P 
ENDIF 
WRITE(*,*) 'Q-'. Q 


Fig.9.10 FORTRAN Program segment for the flow chart of Fig.9.9 
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Another FORTRAN coding using ELSEIF for the flow chart of 


Fig.9.9 is given as Fig.9.11. This coding is wrong as explained 
below: 
c WRONG FORTRAN CODE FOR FIGURE 9.9 
Q=0 
IF (A.GT.O) THEN 
Р=1 
ELSEIF (B.GT.O) THEN 
Р=2 
ELSE 
Р=3 
Q=3*P 
ENDIF 


WRITE(*,*)'Q-', Q 


Fig.9.11. Alternate FORTRAN program segment for the flow chart 
of Fig.9.9 


In the program of Fig.9.11, the indenting of the statement 
Q=3*P is misleading. If (A.GT.O) is false and if (B.GT.O) is 
true then 2 will be stored in P and control will transfer to 
WRITE(*,*) О and Q-O will be written on the display. For the 
same conditions the program of Fig.9.10 will write Q-6 which is 
the correct value as per the flow chart. Thus ELSEIF Statement 
should be used with care. 


As the last example in this section, we consider the 
following problem. A university gives distinction if 


: the average 
marks in an examination is 75% or above, first class, if the 
marks are 60% or above, second class, if the marks are 50% ок 
above. А candidate fails if his marks are below 50%. This 


Statement is coded as the FORTRAN Program 9.7 
C *** EXAMPLE PROGRAM 9.7 
С *** STUDENT MARKS EXAMPLE 
INTEGER ROLLNO 
20 READ(*,*) ROLLNO,MARKS 
с ROLLNO - 0 INDICATES END OF STUDENT DATA 
IF (ROLLNO.EQ.0) GO TO 50 
IF (MARKS.GE.75) THEN 
WRITE(*,*) ROLLNO,MARKS,' DISTINCTION' 
ELSEIF (MARKS.GE.60) THEN 
WRITE(*,*) ROLLNO,MARKS,' FIRST CLASS' 
ELSEIF (MARKS.GE.50) THEN 


WRITE(*,*) ROLLNO,MARKS,' SECOND CLASS' 
ELSE 


WRITE(*,*) ROLLNO,MARKS,' РАШ, 
ENDIF 


GO TO 20 

50 WRITE(*,*) 'END OF STUDENT DATA' 
STOP 
END 


Program 9.7 Finding class in which student passed 


which uses ELSEIF 
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statements. The reader is urged to trace this program with t ; 
data to understand the flow of control in this DGB 228 


9.7 Syntax rules for nested IF statements 
== аи ен IU T Uo iY U Y ас ЕНЕН 

Nested IF statements are of two types: 
Type 1 


IF (е1) THEN 
IF (e2) THEN 


stti 
stt2 
sttn 
ELSE 
stf1 
stf2 
stfm 
ENDIF 
ELSE 
sft 
sf2 
sfk 
ENDIF 
50 CONTINUE 


In the above structure if the relati 5 А 
true then the relational expression (е2) te teur ne (e1) is 
true the statements 85661, stt2..., sttn are exacts If (e2) us 
branches to the statement 50. If (el) is true and | апа ес 
then stfi1, stf2..., stfm are executed and control БЕ е is false 
ТЕ (е1) is false then control branches to sfj. The OPEM sn 
sf1, sf2, sf3..., sfk are executed and control b hc - B 


outside the IF block. 


The statements within the IF blocks can 
Statements.  Eventhough the rules of syntax а excu EIS 
Statement inside an IF block, a branching БАБЫ ЬЕ Uh ae 
GO TO n or IF (e) s within an IF block йау “тады ы саси 
inconsistencies and should be avoided. TF blocka may be estoi 
Within IF blocks to any level. No statements outside an IF block 
may transfer control to a statement within an IF block. For 


example, 
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2----------- со TO 25 
| азах іөзіпсз FG из: 9 
| |ТЕ (A.GT.B) THEN {<----Outer IF Block 
| | PEDES завист CETY C td 
[ | | IF (C.LT.D) THEN | | 
1---->25| | Р == Iren] 
| | ELSE EEA TT Inner IF Block 
| | Р = 2 ШЕРІ 
! | ENDIF i m 
| ELSE: -------------------: ! 
ESS | 
{ENDIF | 


The following are legal nested IF statements: 


(i) IF (I.EQ.J) THEN 
IF (K.EQ.IM) THEN 


М = 5 
ELSE 
N - 10 
ENDIF 
M = 8 
ENDIF 
(ii) IF (P.LT.Q) THEN 
S=S +R 
IF (T.GT.A) THEN 
р=Е+ С 
ELSE 
фә E = с 
ENDIF 
ELSE 
S=Ss -R 
ENDIF 


The following are illegal nested IF statements 


(i) IF (I.EQ.J) THEN 
IF (K.EQ.M) THEN 


М = 5 
ELSE 

N = 10 

N.= 8 


ENDIF 


(ii) IF (P.LT.Q) THEN 
S=S +R 
IF (T.GT.A) THEN 
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D-FtG 
ELSE 
D=F-G 
ENDIF 
S-S-R 


ENDIF 
(ELSE of outer IF missing) 


(iii) ТЕ (P.LT.Q) THEN 


GO TO 25 
IF (Т.СТ.А) THEN 
D=F+t+G 
ENDIF 
ELSE 
S =. S > R 
ENDIF 
5-0 
25 A=A+B 


(The inner IF block is never executed) 


The second type of nested IF statement is given below: 


Type 2 
IF (e1) THEN 
sti 
st2 
stn 
ELSEIF(e2) THEN 
sft1 
sft2 
sftm 
ELSE 
sff1 
sff2 
sffk 
ENDIF 
50 
In this statement the relational expression е1 is tested ТЕ it 


is true then stl, st2...,stn are executed а 

50 outside the IF block. If the тен Мат s 5 i 
false then control branches to the Statement ELSEIF (е2). The 
relational expression е2 is tested. If it i5 екшей енер ls 
Statements 561, sft2..., sftm are executed and control branches 
to 50. If e2 is false then the statements Sff1, sff2..., sffk 
are executed and control branches to statement 50, 
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The following is a legal nested IF statement of type 2. 


IF  (M.GT.75) THEN 


P = 1 
ELSEIF (M.GT.60) THEN 
P=2 
ELSE 
Р = 3 


ENDIF 


The following are illegal nested IF statements: 


(i) IF  (M.GT.75) THEN 
ELSEIF  (M.GT.60) THEN 
Р = 2 
ELSE 
P = 3 
ENDIF 
(ii) IF (M.GT.75) THEN 
P=1 
ELSEIF (M.GT.60) THEN 
P= 2 
ELSE 
Р = 3 
ENDIF 
Р = 4 
ENDIF 


9.8 The Arithmetic IF Statement 


Earlier  FORTRAN compilers did not have the i 
Statement presented in the previous sections. Kaytaqa thes ea 
an IF statement known ав ‘arithmetic IF statement' Thi 
statement transfers control to one out of three statements beeen 
on the value of an arithmetic expression. FORTRAN 77 permit 
both logical and arithmetic IF statements. The arithmetic те 
statement is rarely used. 


Rule: The general form of an arithmetic IF statement is: 

IF (a.e) n4,D5,n4 
where а.е is any valid arithmetic expression and D1,n5,n4 are 
three statement numbers. If the arithmetic expression assumes a 


negative value then control is transferred to statement Dj. i£ ijt 


is zero to по, and if it is positive to statement n3. 
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The flow chart of Fig.9.12 depicts the action of this ТЕ 
statement. 


(а.е) < Ø 
GO TO ni 


(а.е)> 0 
GO TO n, 


negative branch positive branch 
(а.е) = Ø 
GO TO n, 
o branch 
Fig. 9.12 Decision box representing an arithmetic IF statement 


We will now give some examples of valid and invalid 
arithmetic IF statements. The following are valid IF Біз етіс” 


TEE (ld) ТОБ ЕТО 
ТЕ (А%В - COS(Y) - A**I) 18,18,22 
IF (А *B 252) 15, 167728 


The following are invalid arithmetic IF statements (why?): 


IE (A BJ LOIS 

TE (ASN, TOONS 

TE У, 8,971: 

ТЕ (A-B)/(C+D) 18,25,16 


We will now rewrite Program 9.3 to solve a quadrati i 
а 2 $ 1 tion as 
Program 9.8 using the arithmetic IF statement. Ei. 


9.9 The Computed GO TO Statement 


In Section 29.5 we considered a statement called GO TO 
statement. This statement transfers contro] unconditionally to a 
specified statement. If we want to branch to one of a set of 
statements based оп the value of an integer variable we use a 
statement called computed GO TO statement, 
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C *** EXAMPLE PROGRAM 9.8 
С *** SOLUTION OF QUADRATIC EQUATION 
с USE OF ARITHMETIC IF STATEMENT 
READ(*,*) А,В,С 
IF (A.EQ.0) THEN 
X = (-C/B) 
WRITE(“,*) 'LINEAR EQUATION-ONE ROOT' 
WRITE(*,*) 'ROOT = "tX 
STOP 
ENDIF 
D = ВВ - 4.0*А*С 
G DISCRIMINANT CHECKED IF POSITIVE,ZERO OR NEGATIVE 
IF (D) 10,20,30 
с BRANCH ТО 10 IF D LESS THAN 0.COMPLEX ROOTS. 
10 р = -D 
ROOTD = SQRT(D) 
X1 = -B/(2.0*A) 
X2 = ROOTD/(2.0*A) 
WRITE(*,*) 'COMPLEX CONJUGATE ROOTS' 
WRITE(*,*) 'REAL PART XR = ',Х1 
WRITE(*,*) 'IMAGINARY PART XI = ',X2 
STOP 
с BRANCH ТО 20 IF D-0.REPEATED ROOTS. 
20 X1 = -B/(2.0*A) 
WRITE(*,*) 'EQUAL REAL ROOTS' 
WRITE(*,*) 'X1 = X2 = 'x1 
STOP : 
с BRANCH ТО 30 IF D GREATER THAN O.REAL ROOTS. 
30 ROOTD = SQRT(D) 
X1 = (-B + ROOTD)/(2.0 * A) 
X2 = (-B - ROOTD)/(2.0 * A) 
WRITE(*,*) 'REAL ROOTS' 
WRITES EXI € "XL' X2 = "Х2 
STOP 
END 


Program 9.8 Solving a quadratic equation - use of arithmetic ТЕ 


The general form of this statement is: 
GO TO (п1,п2,..., ng),i 


where П1,П2,..., пр are statement numbers and i is an integer 
expression. Note that the parentheses enclosing the 5 

numbers and the commas separating the statement nunberr ut 
required punctuations. The comma following the right parenthesis 
is optional. 


This command when executed causes transfer of control to the 


first, second, third . mth statements with statement number 
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listed within the parentheses depending on whether the value of i 
isv1,27;3,5.:mi If the value of i «1 or »m then control branches 
to the statement following the computed GO ТО statement. An 
example of a computed GO TO statement is given below: 


GO! TO A (5, 2l 35.39: E 


If K-1 this statement transfers control to statement 5, if K-2 to 
statement 21, if K-3 to statement 35, if K-4 to statement 39 and 
if К=5 to statement 1 If К<1 or K>5 control branches to the 
statement following the computed GO TO statement. 


The computed GO TO statement allows multipl i 

- e branchin a 
is ап extremely flexible tool to use. We will udi rt ves 
with an example. 


Example 

A company manufactures three products; radios, televisions 
and video recorders. _They give a discount of 5% on orders for 
radios if the order is for Rs.10,000 or тоге Ten percent 


discount 15 given on orders for television c i 

М ost 
more, and on video recorder orders costing REMO босын the 
discount is 15*. „Оп all other orders no discount is за us 
give a program to implement this policy using Table 9 F3 en. e 


С *** EXAMPLE PROGRAM 9.9 
C *** ILLUSTRATING THE USE OF COMPUTED GO TO 
с PRODCODE USED FOR PRODUCT CODE 
с CUSTOMERNO - 0 USED ТО INDICATE END OF DATA 
INTEGER PRODCODE,CUSTOMERNO 
REAL NETAMOUNT 
10 READ(*,") CUSTOMERNO,PRODCODE,AMOUNT 
DISCOUNT = 0.0 
IF (CUSTOMERNO.EQ.0) GO TO 50 
GO ТО(16,25,36), PRODCODE 
WRITE(*,*) 'PRODUCT CODE ',PRODCODE,' f 
WRITE(*,*) CUSTOMERNO,PRODCODE,AMOUNT О КЕТ 
GO TO 10 
15 IF (AMOUNT.GE.10000.0) DISCOUNT = 0.05 
GO TO 40 
25 IF (AMOUNT.GE.30000.0) DISCOUNT 
GO TO 40 
35 IF (AMOUNT.GE.60000.0) DISCOUNT = 0.15 
с END ОЕ COMPUTED GO TO BRANCHES 
40 NETAMOUNT = AMOUNT'(1.0 - DISCOUNT) 
WRITE(*,*) CUSTOMERNO,PRODCODE,NETAMOUNT 


1 


Ш 


0.1 


GO TO 10 

50 WRITE(*,*) 'END OF DATA' 
STOP 
END 


Program 9.9 Illustrating use of computed со TO statements 
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As a first step we use the following codes to represent the 
three products. Code 1 for radios, code 2 for televisions, and 
code 3 for video recorders. A decision table showing the 
discount policy is given as Table 9.4. 


Table 9.4 : Decision Table for discount policy 


Ре 


Product Code Else 


Order amount 


Discount 


Before closing this section some illegal computed со TO 
Statements are given below: 


GO TO (5,K,8), M+N (K is not a statement number) 


GO TO (3,4,5) А (A is not an integer) 
GO TO (0,2,3,3,4) I (0 is not a statement number) 
GO TO (146789,4,4,5) (K+L) (146789 is not a statement number) 


EXERCISES 
9.1 Write a program corresponding to the flow chart of 


2.2. The numbers are Ө, -8, =7 Като, T0005. 
program must use only integer arithmetic. 


Problem 
The entire 


9.2 Write a Program corresponding to Exercise 2.3. 
9.3 Write a program corresponding to Exercise 2.4. 
9.4 Write a program corresponding to Exercise 2.5. 


9.5 A machine is purchased which will 
Rs.2000/- per year. The machine costs Rs.6000 
have a salvage value of Rs.2000/-, If 12 percent рег annum 


9.6 The interest charged in instalment buying 15 to be 
calculated by a computer program. À two-in-one costs 
Rs.2000/-. А shopkeeper sells it for Rs.100/- down and 
Rs.100/- for 21 more months. What is the interest charged 
by the shopkeeper? 
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9.7 А power series representation of Sin x is 


- x из xd en y? 
Sink es 3! 51 TTE 94153004945 


Write a program to evaluate Sin x to three significant 
digits for the following values of x 


x = .5 radians, x = -2.5 radians, x = 22.2 radians 
and write out the following quantities: 
("РА 
(ii) the number of terms used in the series to obtain 
the required accuracy, 
(iii) Sin x as given by the built in library program; 
and 
(iv) the percent error between your answer and that of 
the library program. 


9.8 Write a program which will evaluate the function 
2 4 
х x 
беда <> + ба ы ОБО Sin?x WENN 


for any given x. 


9.9 Write a program to evaluate the following sum 
10 
5 = (-1) п xn/2 
п-1 п (п+1) 


9.10 А bank accepts fixed deposits for а year or more and the 
policy on interest rate is as follows: 


(i) If a deposit is less than Rs.1000/- and for 2 or 
more years the interest rate is 5 percent com- 
pounded annually. 


(ii) If a deposit is Rs.1000/- or more but less than 
Rs.5000/- and for 2 or more years the interest 
rate is 7 percent compounded annually. 


| If the deposit is Rs.5000/- or more and is for 1 
ы year or more the interest rate is 8 per cent 


compounded annually. 
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9.12 


(iv) On all deposits for 5 Years or more interest rate 
is 10 percent compounded annually. 


(v) On all other deposits not Covered by the above 
conditions the interest is 3% compounded annually. 


At the time of withdrawal the customer's 
deposited and the number of Years the money 
the bank is typed. Write а program to obtai 
the customer's account and the interest cr 
time of withdrawal. 
helpful). 


number, amount 
has been with 
n the money in 


edited at the 
(Use of a decision table will be 


Write a program to calculate to three significant digits 
the roots of the equation 


Sinx-x+1=0 


Hint: Use an iterative technique like the Newton-Raphson 
technique. 

Write a program to round a positive number greater than 1 
but less than 2 with four Significant digits to one with 
three significant digits. For example: 


1.452 rounded would give 1.45 
1.458 rounded would yield 1.46 
1.455 rounded would be 1.46 
1.445 rounded would be 1.44 


Given values for a,b,c and d and a set of values for 


variable x, obtain a program to evaluate the 
defined by 


the 
function 


f(x) = ax? + bx + c ifx<d 
£(x) = 0 iE x = а 
f(x) = -ах2 + bx - с if x» а 


for each value of X, and print th value of x 

How do you alter the flow chart to calculate fixi gor 8 
10 values of x? Write a program for a 

values of x. алынды set РЕ 


Ф 


Chapter X 
The DO Statement 


Many problems are solved оп a computer by using а small 
number of computations which are repeated a specific number of 


times. The flow chart for picking the largest of N numbers 
(Fig.2.6) апа the flow chart for summing a series (Fig.8.6) аге 
two examples which use repetitive computations. Whenever a set 


of calculations are to be repeated a specified number of times, 
each time with a different value for some of the variables, опе 
sets ир what is known as a loop. In a loop, control branches 
back to the beginning of a set of statements as many times as 
they are to be repeated and branches out as soon as the specified 
number of repetitions are complete. To set up such loops which 
occur frequently in practice а special statement called DO 
statement is available in FORTRAN language. 


10.1 The DO Statement 


The general form of the DO statement is 


soe coe ey >= ) Fortran 
n 5---2-2--5--- ) statements 


where n is a statement number, 1 is an integer variable. The 


parameters m4, m2, m3 are integer expressions ог integer 
constants. Another valid form for the DO statement is: 


In the above form m3 is assumed to be 1. 
The punctuations given in the above statement are required. 
The following are valid DO statements: 


1, 10 
2. M, N 
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po 25 I 
Do 55 J 


DO 998 J 
DO 90 IX 


K+1, L*N, M-L 
2, -28, -3 


The following are invalid (why?) 


DO) 30 T = 55 10 

DO 30 А = 1, 25.5 

DO 30 I = 0,5,А(К) 

DO 45 I = K(J), 20, 2 


Observe that the first of these is a valid arithmetic statement! 


The DO statement is a command to execute а11 the statements 
following it upto and including the Statement numbered n. This 
Set of statements is called the domain or the range of the ро 
Statement. The flow chart of Fig.10.1 shows the conditions under 
which the domain is executed. When the DO statement is executed, 


the number of times the domain is to be repeated (тү) is 
calculated using the formula: 

пу = (mg-m4+m3)/m3 
(where the division is integer division) 

My = O if то «m4 and m3>0 

= 0 if mo?m4 and m3<0 

Initially the repetition count my, is checked. If it is 0 then 
control branches to the statement following the terminal 
Statement n of the DO loop. If m, is greater than zero then the 
DO loop index i is set equal to m4. The domain of DO is 
executed with this initial value. After executing the po loop 


statements, m3 is added to the index i. One is subtracted from 


the repetition count Fr. ТЕ шу is 20, control branches back to 


the statement following the DO Statement ang the domain is 


executed again with i = i+m3 and My is replaced by (тр-1) AS 


soon ав my becomes 0 control branches to the Statement following 


the terminal statement of the DO loop. It is thus Seen that the 


DO loop is repeated m, times, with index values 1 = mi, d = 


117 


т; = (п. M; + 73) та 


Statements in 


Fig. 10.1 Flow chart illustrating the Do statement 
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mitma, і = m4*2m3...etc. If m3 is absent іп a DO statement m3 is 


taken to be equal to 1. 


Thus the statement: 
DO 25 T= q 16, 2 


will calculate m, = (16-1+2)/2 = 8 and the DO loop will be 


executed with I - 1,3,5,7,9,11,13 and 15. 


The statement DO 30 I - 10, 1 will calculate Пү-0 and the DO 
loop will not be executed even once. 


The value of п, for the statement DO 35 I- -10, 1 will be 
пу = (1+10+1)/1 = 12. The loop will be repeated 12 times with 


E= =10, -9, =8; -7%.47. 2061» 


The statement DO 45 I 1, -10, -3 will give: 


m, = (-10-1-3)/-3 = -14/-3 = 4. The DO loop will be repeated 4 


times with.I = 1, 42, -5, =85 


We conclude this section by illustrating the use of а ро 
Statement to sum the series: 


$ = 3x + 5х2 + 7x3 + 9x4 + 11x5 + 13x6 


A flow char 


t to solve this problem is 
FORTRAN Program 


is given as Program 10.1. 


С *** EXAMPLE PROGRAM 10.1 
€ *** SUMMING SERIES WITH DO LOOP 
READ(*,*) X,N 
SUM = 0.0 
COEFF = 3.0 
XPOWER = X 
DO 25 KOUNT = LN 
SUM = SUM + COEFF'XPOWER 
XPOWER = ХРОМЕВ*Х 
COEFF = COEFF + 2.0 
25 CONTINUE 
WRITE(*,*) 'SUM = 'SUM 
STOP 
END 


given ав Fig.9.4(p.96).a 


Program 10.1 Illustrating use of a Do statement 


1259, 


Observe in Program 10.1 the statements in the domain of the DO 
loop is indented. This is to improve the readability of the 
program. The domain of the loop has also been earmarked clearly 
using a statement CONTINUE. This statement tells the computer to 
CONTINUE with execution. We will explain its importance later in 


this chapter. 


The index of the DO loop is very often used to index a 
variable called a subscripted variable. We will thus digress a 
little and introduce the concept of subscripted variables int the 
next section. 


10.2 Subscripted Variables 


The FORTRAN variables we talked about so far in this book 
were single entities. They are called а 2022 
variables to distinguish them from another type of ariabl 
called "subscripted" variables. YP vari es 


A subscripted variable refers to an arra 

Hd 5 or a rou of 
quantities. It is very often advantageous to us one ке a 
group and to refer to each member of the group by its position in 
the group. 


For example, assume the following group of numbers named 


VEL: 


VEL 


> 
со 
~ 


ТЕ we want to refer to the third member of 
usual mathematical notation used would be VEL3, ЕА ven КЕЕ 
is called the subscript. In FORTRAN the Memo icy = 


3 
VEL(3). The subscript is enclosed in parentheses, 
In this example VEL(3) = 5.42 


An element in the array may be referred ] et 
notation VEL(I), where І equals, 1,2,3,4,5,6 or 7. by using e 


We might also have to refer to two dimensional arrays. А two 
dimensional array 15 given below as an example. 
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Tn 


Column 
пута: 2 3 
-—— H =. = 
ђе 5 2 3 
Row | 
С 8 9 


The number in row 1 column 3 of the array MAT 


1 is referred in 
FORTRAN as MAT(1,3). In this example MAT(1,3) = 3. 


We may in general refer to any member of the 
dimensional array by MAT(I,J) where I can be 1 or 2, 
A ox сү 


above two 
and J can be 


The general form of a subscripted variable is w(i,j). 
‘w' is the variable name which may be either integer or кеай "ін 
апа "j" are subscripts. А rule for writing these subscripts 


is 

given below: 

Rule: A subscript сап only be a non-zero positive integer 
constant or variable ок expression. 


Example 


Lr ІМ; 0612, ЈА = 4, 4 & TAS 3*К+4, 3+Iw*J+K- 
subscripts. The numbers stored in variable names 
should all be positive. J should not be less than -1. ЧА should 
be greater than 4 and K should be greater tham or equal to -1; 


The expression 3+I*J+K-L*4 Should evaluate сорға positive 
integer » 1. 


L*4 are legal 
T, IM STE 


4.0, А,О, -3 are а11 illegal subscripts. 


The rule for writing a subscripted variable will be 


iven 
now. е 


Rule: Тһе general form of & subscripted variable is 


Variable a integer 


or a real variable name followed by parentheses ehclosior 


one to three subscripts. The subscripts are Separated by 
commas. 
Example: 


VEL(I), INK(J), J(4), МАТ(Ј + 2, K — 4), 
КАТ (2 *"J, 3 * I"— а), ABUD 4 195 3 + 2, K = 4) 


are all valid subscripted variables. 


A(2 I), VEL(-I), INK (A), J(-4), ТАР(Ј.2), 
AP(2.), P(O) 
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are not valid subscripted variables. 


10.3 Dimension Statement 


When subscripted variables are used a DIMENSION statement is 
required to allocate storage locations for its components Thi 
Statement provides information to the FORTRAN compiler as 
reserving a specified number of memory locations for each 
subscripted variable appearing in the program. It is a non- 
executable statement. 


The general form of a DIMENSION statement is: 


"DIMENSION vq (n1), Və(n2,n3), --:, Ур(пк, " i 
legal FORTRAN variable, each n is ЕУ а А Азы 
specifying the number of storage locations to be reserved for у 

The'v's must be separated by commas. The Dimension statement may 
be typed anywhere between the seventh and seventy second tosta 


of a line. 


For example the following is a legal Dimension statement: 
DIMENSION CAT(5), BAT(10,20), I(15, 25), V(10,12,25) 


Note that several subscripted variables ma Ц Қ 
by а single DIMENSION statement. У be di mensioned 


Each subscripted variable in a program must b қ 2 
a DIMENSION statement; the DIMENSION а ваат precede 


by 
the first appearance of the subscripted variable i 
and it must list the maximum dimensions that will пе ОЕ 


for the subscripts of the variable. 


For example, the statement DIMENSION KAT(50, 20) 
KAT is a two dimensional array for which the Sub а means that 
never exceed 50 and 20. The DIMENSION stateme ae will 
reserve 50 x 20 = 1000 storage locations for the arama AM thus 


The statement DIMENSION I(K,20) i i * 
is illegal. No variables 


are allowed inside the parentheses. When writing a dimension 
statement the? number of storage locations available C c 
computer must be taken into account. For example, IBM BE 212066 


maximum 65,536 bytes for an array. 


on DIMENSION A(50,50), (100,100) will reserve 


The declarati 
ох 4 + 100 x 100 4 = 50,000 bytes of memory 


a total of 50 x 5 
for the arrays. 


discuss later. 


1:22 
10.4 Subscripted Variables in DO loops 


We will illustrate with examples how DO loops are useful for 
subscripted variables. 


Example 10.2 


A subscripted variable С; is defined as 


a 
н: 
И 


A2 + в2 жоғ odd values of i. 
i i 


For even values of i, Ci = 0. For i in the range 1 to 5 Ci 


may be evaluated by the following program: 


C *** EXAMPLE PROGRAM 10.2 
C *** CALCULATING COMPONENTS OF A VECTOR 
С SQUARE ROOT PROBLEM 
DIMENSION A(5),B(5),C(5) 
READ(*,*) А(1),А(2),А(3),А(4),А(5) 
ЕЕАР(*,*) B(1),B(2),B(3),B(4),B(5) 
DO 26 I = 1,5,2 
25 C(I) = SQRT( A(I)**2 + B(D**2 ) 
DO 35 I = 2,5,2 
35 C(I) = 0.0 
WRITE(*,*) 'COMPONENTS OF THE RESULTANT VECTOR C ARE' 
WRITE(*,*) C(1),C(2),C(3),C(4),C(5) 
STOP 
END 


Program 10.2 Calculating values of components of a vector 


Example 10.3 


A program to interchange the odd and even components of 
vector А will now be developed. Suppose the given vector is: 


A(1) A(2) A(3) A(4) A(5) 


a 


A(6) 
4 =6 8 11 5 -12 
then after interchange the result will be 
A(1) A(2) A(3) A(4) A(5) A(6) 
=6 4 11 8 -12 5 
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Effectively we require A(I) to be replaced by А(1+1) and A(I+1) 
to be replaced by A(I) (with I odd). If we write: 


A(1) 
A(2) 


A(2) 
A(1) 


then we will have at the beginning 


A(1) A(2) 
кш 
After executing the statement A(1) = A(2) we will have 


Е 


Observe that the original contents of A(1) is lost. Thus the 
statement A(2) = A(1) will have no effect. In order to 
interchange the two components, we require a temporary variable 
where the value of A(1) can be preserved. Thus if we write: 


Line No. Statement 
1 TEMP - A(1) code CD) 
2 A(1) = A(2) FLOS 
3 A(2) = TEMP CT.) 


the result will be: 


At start БІЗ Te 1 


At line 1 [4 


At line 3 | 4 


| 
миша [ 
| 
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We have written Program 10.3 using this idea. А trace of Program 


10.3 is given in Table 10.1. The trace clearly shows how the DO 
loop functions. 


Line No. Fortran Statement 
1 7 
С *** EXAMPLE PROGRAM 10.3 
С *** INTERCHANGE OF COMPONENTS OF VECTOR 
DIMENSION A(6) 
READ(",") A(1),A(2),A(3),A(4),A(5),A(6) 
DO 25 1 = 1,5,2 
TEMP А(Т) 
А(1) = А(1+1) 
А(1+1) = TEMP 
25 CONTINUE 
WRITE(*,*) A(1),A(2),A(3),A(4),A(5),A(6) 
STOP 
END 


к о \о со ы O Q i» QQ N P 


ыы 


Program 10.3 Illustrating interchanging components of a vector 


10.5 Restrictions in D loop 


(i) Enclosed within the domain of DO there may be other po 
loops. The domain of the latter DOs m 


r ust be within the domain of 
previous DOs. A set of DOs satisfying his rule is called nested 
DOs. 


Fig. 10.2 Illustrating nested DOs 
The domain of a DO should not cross the domain of another 


DO. Thus the configuration of Fig.10.3 is illegal. The reason 
for this is not obscure. 
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1--------- 15 DO 50 I = 1, 20 
1 2------ 25 5075 3 = 1, 10 
UN 
1--1------ 50 

UI RA 75 


The first po statement (statement num 
program to execute all statements followin 
number 50 twenty times. While execy 
statement 25 which is another po 


ber 15) commands the 


15 and the Second DO commands it to proceed Sequentially to 
Statement 75. This ambiguity is not allowed. 


SELLAL 15 DO 35 I=1, 20 
[К GEO ат 25 
Loo cl 

2--:---35 


Fig.10.4 : Special Case of nested DOs 


The configuration of Fig.10.4 is a Special case of the 
nested DOs and is legal. In this case the 


1 last Statement 
defining the domain of the two DOs is the same, Statement 15 is 
the first po and it commands that all statements 
including 35 ђе executed with I = 4 20. When control 
reaches 25 with I = 1 the second DO commands that all Statements 
upto and including 35 be executed with J = 2 2-151252 


t qual to 2 and on 
reaching Statement 25, the domain of the se 
executed for all values of Ј from 1 to 25. 


Thus it may be Seen that the set 


25 and 35 
are executed 20 x 25 = 500 times. 
Example 

20 10 

The sum aij bj is computed by the 

i=1 ізі 
ркодкат: 

SUM = 0.0 


DO 50 I - 1, 20 
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DO 50 J = 1, 10 
50 SUM = SUM + A(I,J) * B(J) 
(2) A transfer into the domain of DO from outside 15 not 
permitted. For example, the following program is invalid: 
SUM = 0.0 
2----------- со то 5 
Г I=2 
1 DT UOI ODORE C S T E E ale 
| :---- 15 DO 50 І = 1, 20 
:--|--— 5 A(I) = C(I) + D(I) 
:--- 50 SUM = SUM + A(I)**2 

This is due to the fact that the variable index I of the DO 
statement is defined and the number of required loopings set up 
only when the DO statement itself is executed. 

Transfer from inside the domain of the DO to outside is 
permitted at any time. When transfer occurs in this way the 
value of the DO loop index is preserved for subsequent use. If 
the transfer is out of the domain of several nested DOs the 
indices of all the DOs are preserved. 

— DO 50 I= 1, 25 
| 
poe) влажн — Permitted » 
| <----: 
:---- 50 i 
I 
Not Permitted 

When control leaves the domain of DO after the pO is 
satisfied then also the index is defined. 

(3) Тһе DO loop parameters i, m1, mo, and m3 should not be 
redefined by statements within the domain of the Do. 

The following program which attempts to find the sum of the 
even elements of two arrays A(I) and B(I) is invalid as it 


redefines the index I within the domain of Do 


(4) 


SUM = O. 
DO 50 1 = 1, 10 
I = 2*I 


50 SUM = SUM + A(I) + B(I) 


The first statement in the domain of а po must not be a 


non-executiable Fortran statement, namely INTEGER, DIMENSION etc. 
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The following program is invalid: 


DIMENSION C(10), D(10) 
DO 15 = Бе“ 10 
DIMENSION A(10) 

A(I) = C(I) + DCE) 


(5) A transfer instruction within the domain of a DO should 
not lead back to the DO statement itself. To explain this let us 
consider the problem of picking the largest of 10 positive 
numbers. A flow chart for this problem is shown in Fig.10.5. 
This flow chart uses a different strategy compared to the 


method 
Read 
ACL), AC2),AC3),...AC1a) 
све ја > <: 
BIG= ACJ) 
J=J+1 
Fig. 10.5 Flow chart for picking the largest of 10 positive 


numbers 
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presented earlier. The numbers are stored in the computer's 
memory in a subscripted variable. A variable BIG is initialised 
to zero. Each number stored in the array is compared with BIG, 


the larger number being put in BIG. Thus BIG will finally 
contain the largest number in the array. 


This flow chart when translated into a FORTRAN program would 
be: 


с PICKING LARGEST NUMBER 

DIMENSION A(10) 
DO 25 I = 1, 10 

25 READ (*,*) A(I) 
BIG - 0.0 

зо ро 35 J = 1,10 

Error — IF (BIG.GT. A(J)) GO TO 30 

35 BIG - A(J) 
WRITE(*,*) BIG 
STOP 
END 


The above program has an error which is marked with an 
arrow. The erroneous statement is the IF statement which leads 
back to the DO statement numbered 30; this is not permitted. 
Because the DO loop does not increment or test the index J until 
it gets to the last statement in its domain (statement number 35 
in the above example) a transfer back to the DO from the middle 
of its domain upsets the indexing and is not permissible. 


In an attempt to rectify this mistake one ma i 
alternate set of statements for the DO loop as shown e an 


BIG = 0.0 
DO 35 J = 1, 10 
25 IF(BIG .GT. A(J)) GO TO 35 
BIG = A(J) 
——»Error 35 GO ТО 25 
WRITE(*,*) BIG 


This program is also not acceptable due to the following 
rule: 


(6) The last statement in the domain of th 

i i e t not be 
а centrol statement, that is, it must not be T к= йа o dos 
or another DO statement. " 


As soon as control reaches the last (labelled) statement in 
the domain of the DO one looping is complete and control commands 
that one should either get out of the domain or go back to the 
statement following the DO to execute the domain again. Anobhef 
control statement at this stage would create а conflict which may 


not be unambiguously resolved. 
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This rule creates problem in wr 
the largest of ten numbers. 
statement called CONTINUE 
It is a dummy statement whic 


iting the program for picking 
To resolve such difficulties a 
Statement is available in FORTRAN. 
h does nothing but asks the 


program 
to continue. Using this statement the program for picking the 
largest number may be corrected and the correct po loop is shown 
below: 

BIG - O.O 

DO 35 = т, 10 

IF(BIG.GT. A(J)) GO TO 35 

BIG - A(J) 

35 CONTINUE 

WRITE(*,*) BIG 

10.6 DO Type Notation in Input/Output Statement 
In programming, it is often necessary to input and output 

the values of subscripted variables. 


For example, in the last 


Were read as the elements 
atements: 


Section the ten numbers to be compared 
of a subscripted variable A(I) by the st 


DO 25 1 1, 10 
25 READ(*,*) A(I) 


The above method requires reading data ten times, each time 
reading one value of A(I) because the READ Statement is executed 
10 times as commanded by DO. This is not desirable as the time 
taken to input the data 10 times Will be about 10 times that 
needed for reading all the ten data once. 


If we want to read in all the 10 values with опе READ 
Statement we may write the statement: 


READ(*,x) ACT) ,4(2) ,A(3) ,A(4) A (5) A (6) A (7) ,A(8) ,A (9) , A (10) 


This 15 cumbersome even for a 10 com 


i : Ponent vector and will 
become increasing 


ly so with more components. 


There is thus a Simpler READ statement in F 
What а DO type statement presented earlier woul 


ORTRAN which does 
without requiring 10 executions of READ. 


d accomplish but 
The statement is: 


READ(*,*) (A(I), I - 1, 10) 


The above statement will read in 10 values fro я 
unit and assign them respectively to A(1), A(2), т E 
If all the 10 values cannot be accommodated within 80 е ê A 
a line they may be typed on succeeding lines. Data will be sect 
till 10 values are found. 


This statement 15 said to be a READ 


Statement wit 
implied DO input list. The full generality of шаг 


DO type Statements 


JG 


is available for such READ statements. For example, if the 
values of the odd components of a vector are to be read in, the 
following statement may be used: 


READ(*,*) (A(I), I = 1,10, 2) 


This statement will assign succeeding numbers on one line to 
A(1), A(3), A(5), A(7) and A(9). 


More than one vector may be specified in the list of a READ 
statement. 


For example, the statement 
READ (45) CA GE) BRE). T = 1, 10) 


will read in numbers from the input unit and assign them succes- 
sively to A(1), B(1), А(2) .В(2), «А(З),, BOS. А(10), ВТО) 


Two dimensional arrays may also be input by a similar read 
statement. For example, the statement 


READ(*,*) ((А(Т,Ј), 1 = 1,10), Ј = 1,5) 


will read in successive numbers from the input unit and assign 
them respectively to: 


20015225) АО АЗ. АООТ) 
А(1,2), A(2,2), A(3,2) ... A(10,2) 
A(1,5), A(2,5), A(3,5) ... A(10,5) 
More than one, two dimensional array пау also be read in For 


example the statement 


READ(*,*) ((A(I,J), B(I,J), І-1,10),2-1,2) 


will assign successive numbers typed on a line. 
A(1,1), B(1,1), A(2,1), B(2,1) ... A(10,1), B(10,1 
A(1,2), B(1,2), A(2,2), B(2,2) ... A(10,2), os 


The index used in the list of the READ statement may itself 
be an integer variable provided it is defined before it is used. 
For example, the statement 


READ (*, *) (A(I), І = 4,4 + 10) 


is invalid if no value is assigned to J. all the other 
indices of а DO statement also apply to the DO 


restrictions on 
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type READ statements. For example, 


the following statements are 
invalid (why?). 


READ (*,*) (А(Т), Т = 0,5) 
READ (*,*) (A(B), В = 1,5) 
READ (*,*) (A(I), I = 30:5) 
READ (*,*) (C(I), I = 10,5) 
READ (*,*) (A(I), I = K(J),10) 
READ (%,%) (А(Т), I = 10,1) 


Example 10.4 


To illustrate the use of READ and WRITE 
subscripted variables we will write a program to f 
of two matrices. The program is to read aN x 
rows, К columns) and a K x M matrix B. 
displayed. The actual values of N,K,M will 
the maximum values of N,K and M Will be ass 
20. Тһе program is given below: 


Statements for 
orm the product 
К matrix А (М 
The product is to be 
be read in. However, 
umed to be less than 


C *** EXAMPLE PROGRAM 10.4 
C *** PRODUCT OF TWO MATRICES 
DIMENSION A(20,20),B(20,20),C(20,20) 
READ(*,*) N,K,M 
READ(*,*) ((A(I,J),1 = 
READ(*,*) ((B(I,J),1 = 
DO 10 I = 1,N 
DO 10 J = LM 
C(LJ) = 0.0 
DO 10 L = 1,K 
10 C(LJ) = са, + A(I,L)*B(L,J) 
CONTINUE 
WRITEC,*) ((C(I,J),J = 1,M),I = 1,N) 
STOP 
END 


Program 10.4 Finding product of two matrices 
The first data items are the values of N,K,M. 
lines the values of matrix А are given columnwise (in the order 
A(1,1), A(2,1), A(3,1), etc.) and read in. 
are exhausted the elements of B are also gi 
line. The nested DO loops compute each е1 
matrix C. The WRITE statement display C ro 
in the order С(1,1), c(1,2), C(1,3), ... etc. 
1 


ement of the product 
In other words 


Example 10.5 


As an example let us consider the 


1 evaluation of а 
polynomial: 


р(х) = арх + ал-1 xh-l + e + ax + ао 
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Evaluating this polynomial by brute force is simple but will 
involve n(n¢1)/2 multiplications and n additions. We will write 
a program based on the following alternate method of writing the 
expression. This method involves n additions and n 
multiplications. 


Pang aj qx" "n anx” 


p(x) ag + ajx + ах 


ar x(a4 + ах +... арала 2 + apxH-1 ) 


8o 
= ag + х(ај + X(ag +... x(ag 1*xag)) ....)) 


A program using subscripted variables and a DO loop may Бе 
written as follows: 


G PROGRAM WITH SYNTAX ERRORS 
DIMENSION A(10) 
е MAXIMUM TENTH DEGREE POLYNOM 
RAD ланың IAL ALLOWED 
EPPOI: 7 7 READ (*,*) (A(I), I = O,N) 


POLYL - A(N) 
DO 30 1 - N,1, -1 
30 POLYL = A(I-1) + X * POLYL 
WRITE (*,*) POLYL 
STOP 
END 


The above program is logically correct. EET аа в а 
race 


through we get the following table and it i 
polynomial is properly evaluated. пе егеп that Ihe 


I POLYL 

ON RE ET EO O a ^^ M 
N-1 A(N-2) + X * (A(N-1) + X * A(N)) 
N-2 A(N-3) + X * (A(N-2) + X * (A(N-1) + X * A(N))) 


“КОТЕЛ О А qd irse. op co E 


The program is, however, syntactically incorrect as а zero 
subscript has been used in the statement marked by an arrow. 


The correct program is given below as Program 10.5. Observe that 
the coefficients of the polynomial have to be numbered from 1 as 
a zero subscript is not allowed. The polynomial is: 
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POLYL = А(1) + A(2) + X + A(3 * X * у e. + A(N+1) * X ww N 


Thus the DIMENSION statement should also be changed. 


C *** EXAMPLE PROGRAM 10.5 

С *** COMPUTING A POLYNOMIAL 
DIMENSION A(11) 

с MAXIMUM TENTH DEGREE POLYNOMIAL ALLOWED 
READ(*,*) N,X 
M=N++1 
READC,*) ( A(I),I = LM ) 
POLYL = А( N+1 ) 
DO 30 I = N,1,-1 

30  POLYL = A(I) + X * POLYL 

WRITE(*,*) POLYL 
STOP 
END 


Program 10.5 Computing a polynominal 


The table below sh 
above program: 


ows how the polynomial is evaluated by the 


I POLYL 

E А(М+1) 

N A(N) * X * A(N*1) 
N-1 A(N-1) + X * (A(N) + X * А(М+1)) 
N-2 A(N-2) + X * (A(N-1) + X = (A(N) +... ))) 
1 AU) + X * (A(2 +Х * (A(3) ... )) ... )) 


EXERCISES 


10.1 Program Exercise 9.6 using a DO Statement 
10.2 Program Exercise 9.9 using а DO Statement 


10.3 Write a program to transpose the following matrix. 


Use 
integer mode. 
=9 8 7 16 0 
А = 4 13 2 -1 5 
-9 4 3 1 -8 


10.4 Write a program to rearrange elements of ea 


ch row of the 
above matrix such that the elements of 


each row аге 
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arranged in a descending order as shown below: 


16 8 7 0 E) 
13 5 4 2 —1. 
4 3 1 -8 ==) 


10.5 Write a FORTRAN program to calculate the arithmetic mean, 
variance апа standard deviation of heights of students. 
The program should be capable of accommodating upto 100 


students. 
10.6 The data obtained from life tests of 50 electric bulbs is 
А tabulated below. Write а FORTRAN program to obtain а 
frequency distribution table conforming to the following 
specifications: 
992 1007 1001 1010 1001 
1009 990 1003 1008 999 
1014 992 991 1006 998 
986 996 1010 1008 1008 
998 1004 999 1000 1002 
994 1002 1005 1008 1025 
1003 981 1014 982 997 
1009 1001 988 1018 991 
1028 1000 1011 1012 1012 
1010 1017 1010 996 996 
(i) Put all bulbs with life less than 985 hours in 
group 1. 
(ii) Put all bulbs with life greater than 1024 hours 
in the last group. 
(iii) Divide the region between 985 and 1024 hours 
into eight intervals such that each interval 
encompasses a life time of 5 hours (e.g., 985 


to 989 is one interval.). 


Write a general program so that you can accommodate upto 
200 data and 20 class intervals. Read the following as 
the first data: 


Ь N = No. of data = 50 in this specific case. 
LOLIM - Lower limit. All data less than LoLIM will be 
put in class 1. 
HILIM = High limit; all data greater than  HILIM will 


be put in the last class. 
INTERVAL = Interval width, it is 5 in this example. 


Do all calculations in integer mode. 


10.7 The method of least squares may be used to fit a straight 
line of the form 
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10.8 


Y = a t bX 
to a set of values of Y and X where 


is the dependent variable 
is the independent variable 


мм 


is the Y intercept or the estimated value of Y where 
X is zero. 


b is the slope of the straight line or an estimate of 
the change in Y for a unit change in X. 


Values for a and b are calculated from the formulae 
ies na ZAY (9) OY) 
п 5х2 - (Jx)? 
а = (SY = b 2X) /N 


The standard error of estimate is a measure of the 
variation of the original Y values around the regression 


line that is, around Y. It may be calculated from the 
equation 


1 12 -аз Y —.b 5 xy 


n-2 
Finally, the correlation coefficient is a relative measure 
of the closeness of the data points to the straight line 


(r=0 signifies no correlation; r = 1. signifies perfect 
correlation) and may be calculated from the formula: 


2 n SKY, - (33) (XY) 


fa x? - (mno? . [п 512 - (5у)2 


Write & FORTRAN program to calculate a,b,s 


yx: andr for a 
sample of n observations. Provide for a sample size upto 
100, and data input with one X and one 


alternatively, each of the form XXX.X beginning 


Y value 


in column 
1. The value of N is given as the first data. 


Write a program to multiply a (n x m) 


- matrix by 
matrix. Provide for maximum n-m-20. 


a (m x n) 


Chapter XI 
Format Specification 


In Chapter VII wediscussedlist-directed or format-free I/O 


statements. The list directed I/O statements simplify 
programming for the beginner at the expense of flexibility in 
presenting results and in reading input data. By including a 


format specification a programmer gains a great deal of freedom 
in the way he wants to input data into the machine and the way he 
wants the results of computation to be displayed. In many 
implementations of  FORTRAN language а Format specification is 
required as an integral part of the input-output (I/O) statement. 
The Format statement is a non-executable statement. It merely 
supplies information to the compiler on how data will be found 
and how results are to be presented. 


The following terms аге used in discussing Format 
statements. 


(a) A list: This is the group of variables specified in a READ 


or WRITE statement. The variables are Separated by commas. 


(b) A Record: This is the sequence of characters or values to 
be read in or the group of values to be displayed апа is 
termínated by an end-of-line marker by the system. 


(c) А Field: А record consists of a number of fields. A field 
is an individual element of a record described as a unit. А 
field is normally the set of columns reserved for опе 
variable. The number of columns in a fieid is called the 
width of the field. For example, the number 95.42 has а 
width of five. The decimal point is to be counted as а 
character. 


A Format statement is given as a part of a READ or WRITE 
statement апа describes in the case of the READ statement how 
the data is typed on a line and in the case of the WRITE 
statement in what form it is to be displayed. 
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An example of a READ statement with format specified is: 


READ (*,5) A,B,N 
5 FORMAT (F5.2, E12.4, I5) 


In this example the * in the READ Statement indicates that 
the input 15 from the keyboard of the VDU and 5 refers to the 
statement number (ок label) of the corresponding Format 
specification. The list is A,B,N. Тһе record is one line which 
has the values of A,B,N on it. The quantities inside the 
parentheses in the Format Statement, namely E592. 1812.4, ТБ 


describe the fields of the individual quantities, А, В and М of 
the record. 


The general form of a READ and WRITE s 


tatement with a FORMAT 
specification is shown below: 


READ (i,n) list 


WRITE (i,n) list 
n FORMAT (81,52, ...) 


n FORMAT (51,82, ...) 


Here n is a statement number of the FORMAT statement 
referred to, 1 the file specification code and 81,52, ... etc., 
are Format specifications which will be discussed in detail in 
what follows. In this chapter we confine ourselves to input from 
keyboard for which the file specification code is 0 or * and 
output on VDU for which also the file specification is 0 or x, 


11.1 Format Description for Numerical Data 


Y Numerical quantities may be specified in three forms: (i) 
integer, (ii) real using exponent notation, (iii) real without 
exponent (fractional form). 


If a data field is in integer mode it is specified by using 
the code I to indicate that it is an integer. Together with this 


it is also necessary to indicate the width of the field 
the number of columns on a line o o namely 


ccupied by the data. Thus, if a 
number 1942 is to be read in, the specification ive i 
FORMAT (14). аах S 
The data is to be typed as shown below: 

1 2 3 4 ——— column Number 

+ 9 4 2 
More columns may be reserved for а data field than are i 
to accommodate the number in that field, AE ras 


The extra co 
should be on the left of the number. Thus, dou 


„РЧ if the number 4 
typed as shown below the Format description should be I8: a 
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1 2 3 4 5 6 7 8-»Column Number 
Уи 19 A 12 

Real Number Fields: Real numbers may be typed in two forms: 
(a) in a fractional form, (b) in an exponent notation. 


The letter F is used if the data field is typed in a 
fractional form and the letter E if in exponent notation. 


The Format specification in the fractional notation is F 
w.d. where w is the number of columns to be reserved for the 
field and d the number of columns to be used after the decimal 
point. For example, the four fields shown below are specified as 
follows: 


142. 34:4. 5, бил бй о лати 13. 402 тесто 
1 9"! 9% M y ERIS та емер 


|€-Field-»| 16-Ғіе14--->| |€--Field--~; |<------- ІН === => 
1 2 3 4 


FORMAT (F4.2, F5.2, F4.0, F6.2) 

Observe that blank columns may be left on either side of the 
number by proper field specification. Also, if a sign is to be 
indicated а column has to be included in the total width of the 
field. 


The Format specification for the exponent type notation 


F is 
E w.d. where w is the total width of the field and d is the 
number of digits which appear on the right of the decimal point- 
For example, the two fields shown below are specified as follows: 


FORMAT  (E8.2, Е7.0) 
1$ dy. 4" i 91 {3 IO at 42 13 за ке 
= acad wa EOF ОА 2759 Du . Енесі 200 
| <---- Field 1 ----->| |<------ Field 2 


In writing E type Format specification for output statements 
one -must be careful to see that the inequality w2d+6 is 
satisfied. That is, the total width of the field must exceed the 
number of digits required on the right of the decimal point by at 
least six. The six positions are required for (i) two digits of 
the exponent (the exponent always has exactly 2 digits), (ii) one 
position for the exponent symbol E, (iii) one position for the 
sign of the exponent, (iv) one position for the decimal point, 
(v) one position for the sign of the mantissa (if the sign of 
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the mantissa is positive it will not be displayed but a position 
must be reserved for it). 


In ІВМ PC all real numbers are Stored with nearly 8 digit 
mantissa and a 2 digit exponent. Thus if all the digits stored 
in the machine for the value of the variable are to be displayed 
with the E-type Format specification then one must ensure that 
w215. It is preferable to display the answers in E-type Format 
with mantissa less than 1, that is, in the form +¥.xxxxxxxx Езуу. 
Ав опе blank is left between the sign and the decimal point, a 
minimum of 15 columns are needed. 


Remarks on Output Formats 


(i) If insufficient field width is specified then in output 
instructions, the number is truncated. For example, the number 
-.12345678х103 Stored in memory will be displayed as -6123.45 if 
the Format specification is F8.2 and as -.12E+03 if the 


icis S = Format 
Specification is E8.2. 


(ii) То avoid accidental loss of digits it is good practice 
to allow 15 places for all E Specifications, that is, write а11 


E specifications in the form E15.x where X is the number of 
decimal places required to the right of the decimal point. 


(iii) In F and I specifications an extra 5 А 
of the output must be provided. PAGE EO the алап 
(iv) In a Format statement for a printer i 
in the specification contains carriage control COR erri енш 
essential. 1X ок ТНИ is used as the first element tg i vig wed 
Single spacing, 1Н0 or '0' for double spacing of lines on cate 
and, '1' or 1H1 for skipping to next Page, and 1н+ о Printer 
overprinting on the same line. For example, оваа for 


WRITE (*,25) I,J,K 
25 FORMAT (1Hb,3I6) 


indicates single spacing on printer. 
double spacing, FORMAT (1H1, 3I6) will sk 
Lid Ks 


FORMAT (1H0, 


à 316) indi 
ip Коза neg icates 


Page and print 


Blank Fields 


Blank columns may be provided in an input or output 


by using the specifications w X where м із the nu record 
to be skipped while reading or the number of dels e жасасып 
blank on output. e left 


For example, the format Specification po 
5X,E15.6) will cause 5 blank columns between the two ER 
specified by E18.6 and E15.6. 
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11.2 Examples of Format Declaration 


Example 1: Suppose it is required to read the data as shown 
below: 


123456 7 8 9 10 11 12 13 14 15 16 17 — > Column Number 
и52. 48 BK 4 DIN Ng Or 


Then the input statement alongwith Format would be written 


as: 
READ (* ,51) A,B,N 
51 FORMAT (2X, F5.2, 2X, F5.2, I3) 


It may also be written as: 


READ (*,51) A,B,N 
51 FORMAT (F7.2, Е7.2, I3) 


In the second case the specification F7.2 wi 

А -2 will reserve 7 
columns for the number and will thus automatic 
the blanks. ally take care of 


The Format specification may also be written as 
51 FORMAT (2F7.2, I3) 


where 2F7.2 specifies that the first two numbers h 
Format F7.2 ave the same 


In specifying format for single records it m 
that there is a field specification corresponding s ito pd ~ 
of the list in the input/output statement. zu element 
specification must be in the same order as the element МЕ 
list (read from left to right). = злу “Бһе 

Example 2: Data is typed as shown below: 

1.2 34 56/17. GS Тоа И 15216. 17 35 = Column Number 

= te. 2 Бавио АР ПОЈ AE LOSE. 2 

|<----- А ----14«-2X-— |€-----B----—)|«-N—5| 


The input statement corresponding to this M 


READ (*,41) А,В,М 
41 FORMAT (E9.2, 2X, E5.0, 12) 


Two real numbers А and B are to be displayed in 
on and an integer N of 3 digit length is also 
Suppose the numbers are to be displayed with 8 


Example 3: 


the exponent notati 
to be displayed. 
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Significant digits a Format Specification might be 


WRITE (*,52) A,B,N 
52 FORMAT (15X, E15.8, 5X, E15.8, 5X, I5) 


The output will then appear as Shown below: 


BEEIEPPEEEEEEDEE TI. XXXXXXXXE+XXB//BB+ . XXXXXXXXEAXXEMEEEXXXXX 


lun | SUNT Scenes) oi 15 ااا‎ aN 


Example 4: Three real numbers A,B and C which are known 
be less than one are to be disp 

decimal digits  accurac 
also to be displayed. 
written as: 


to 
layed Without exponents with 6 


is 


WRITE (*,85) A,B,C,N 
85 FORMAT [1X, 3X, F8.6, 3X, F8.6, 3X, F8.6, 3X, T5) 
1X at the beginning of the FORMAT 


2 о Specification is 
carriage control character and is required. 


a 
The Format specification тау also be written as 


85 FORMAT (1X, F11.6, F11.6, F11.6, I8) 
85 FORMAT (1X, 3F11.6, I8) 
The two specifications above are e 


quivalent and the 
Will appear as shown below: 


output 
+хкх.хххххх+#ххх.хххххх+ххх.хххххх+хххххххк 
а зс ссср а от кы 

Thus, if n Successive fields within 


| 5 to be di 
in the same fashion, then it may be specified by writing mel 
the E, F or I Specification. did 


one record is 


Thus, FORMAT (E12.4, Е12.4) 


пау be writ 
(2812.4). ten as FORMAT | 
11.3 Displaying Messages 
Alphameric characters may be displayed in 
titles, comments, etc., alongwith the form of 


numerical 


outputs. The 
е the infor 


specification used for this is to enclos mation within 


apostrophes ('). For example: 


WRITE (*,66) 
66 FORMAT (1X, ‘THISKISKTHEBSOLUTION’ ) 
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would cause the comment THIS IS THE SOLUTION to be printed when 
the WRITE statement is executed. The statement 


WRITE (*,88) N, ANS 
88 FORMAT(1X, 'THERANSWERDAFTERP! ТЗ, "ІТЕКАТІОМ5БІ5", F5.2) 


might cause an output 
THE ANSWER AFTER 30 ITERATIONS IS 14.58 


assuming that М = 30 and ANS = 14.58. Note that the 
specifications for М and ANS are respectively 13 апа F5.2. 
Consider the statement 


WRITE (*,77) X,Y,Z 
77 FORMAT(5X, "Х-", F5.2, 5X, "Y=", F552) SRE "EE5-2) 


would cause the output 
X = 14.58 у = 12.45 7 = 11.56 


ТЕ ап apostrophe itself is to be included in a message two 
apostrophes are used. For example, the statement 


WRITE (*,*) 'RAMA"S DHANUSH' 
will display the message: 


RAMA'S DHANUSH 


Some  FORTRAN compilers do not provide this simple method of 
displaying messages. In this case the specification to be used 


in the FORMAT statement is wH. In this specification w is a 
number giving the number of alphameric characters following H to 
be extracted and displayed. Thus if the message THIS IS THE 


SOLUTION is to be displayed the instructions are: 


WRITE (*,66) 
66 FORMAT (1X, 21HPTHISPISPTHEDSOLUTION) 


see that we have to actually count the characters (including 


We У п с 
blanks) to be displayed and put this count in front of H in the 
FORMAT statement. It is very important to have the correct 


Otherwise part of the message will be lost. 


h ter count w. 3 
hiss Hollerith Format 


This format is called 


11.4 Multi Record FORMATS 
11.4 Bult: Se 


If input-output lists are to be obtained in more than one 
(one typed line or one printed line) then a multi record 


perds is to be specified. In order to understand this 
specification it is helpful to know how the compiler interprets 


FORMAT statements. 
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When the object program encounters an input/output statement 
it scans the corresponding FORMAT Specification from left to 
right and simultaneously scans the variables in the list. Each 
element in the list is displayed or read according to the given 
format. When the computer encounters the final parenthesis in 
the format code it checks if all the elements in the list are 
exhausted. If not it scans the FORMAT Specification in reverse 
and stops at the first left parenthesis encountered. (Nothing is 
done during the reverse scan). It resumes Scanning from this 
parenthesis left to right and displays the rest of the 1156 


elements in the next line. The forward and reverse Scanning аке 
repeated till а11 the elements in the list of the input/output 
Statement are exhausted. For example: 


READ (*,66) N,K,M 
66 FORMAT (13) 


will read the values of N,K,M fro 


m three successive records all 
with FORMAT (I3). The statement: 


READ (*,88) (X(I), I-1,70) 
88 FORMAT (7F10.3) 


Will read 7 items each from 10 Successive records. The Statement 


WRITE (*,77) K,M,A,B,C,D 
77 FORMAT (1X, 213, (F10.4)) 


Will display K,M and A on the first line and B,C,D on 


th 
three lines. еу 
The following statement: 
WRITE (*,35), A,B, (C(I), INT(I), I-1,5) 
35 FORMAT (1HP, 3X, 2Е15.8, (1HB,10X,F10.6,5x,16)) 
will display A,B,c(1), INT(1) with the FORMAT 
Fl0.6, SX, 16) затекне Mj 2815.8, 10x 


first line and C2) 
. 16),C(3), 


WRITE (*,35) A,B,C(1), INT (1) 

35 FORMAT (1НИ, 3X, 2E15.8,1H¥,10x,F10.6, 5X, I6) 
WRITE (*,36) (C(I), INT(I), І-2,5) d 

36 FORMAT (1Hb,10X,F10.6,5X,I6) 


Record Spacing 


Whenever it is necessary to read a line next to the current 
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line a slash (/) is used. The slash (/) is also used if inti 
is to be done in the next line. printing 


The statement 


WRITE (*,66) A,B,C,K,L,M,N 
66 FORMAT (1X,3F10.2/4 I5) 


will type A,B,C on first line and K,L,M,N on the next line. The 
specification 


FORMAT (1X,/ 3F10.2/(4 I8)) 


will leave a blank line, type 3 fields on i 
n" " th 
four integer fields on all succeeding dines. ab cd o 


FORMAT (1Х,/ 3F10.2 / (4 I 8) / ), howeve ] 
blank 11пе after each line with 4 integer riesi Noii я опе 


statement 


WRITE (*,20) А,В,С, (KEM(J), Ј=1,77) 
20 FORMAT(1X, 3F10.2 / (418 / 3I6)) 


will type three real fields on the first line, 4 i 
second line and 3 integers on the third line, and erre PM he O 
and 3 integers on all succeeding lines. Y 


11.5 Specifications in A-Format 


It is possible to store strings of charac 1 
of the computer and manipulate them with FORTEAN Mei e 
order to do this character strings are read in using a Е Š 
specification called the A-Format. The Hollerith dic 
specification considered in Section 11.3 also concerns character 
strings but the characters read using the H-Format are not stored 
in the computer's memory and thus cannot be manipulated In 
printing headings etc., there is no need to read in Rosas into 
memory and thus H-formats are more appropriate. For other 


the 

problems which require character manipulations, like arranging a 
set of names in alphabetical order it is necessary to read in 
strings of characters into the memory of the computer using 


A-Format specification. 


Variable names in which characters are to be stored аге 
declared using the TYPE declaration: CHARACTER*n where n is an 
integer between 1 and 127 indicating the number of characters to 


be stored in the variable. Thus 


CHARACTER* 4 STRING 
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Will allow 4 characters to be stored in the variable name STRING. 


CHARACTER*4 STRING 


READ (*,50) STRING 
50 FORMAT (A4) 


'KING' (typed on keyboard) 


Will cause the character String KING to be read 


into m à 
identified by the variable name STRING. БУУ 


The statements: 
CHARACTER*4 A(4) 


READ (*,25) (A(I), I = 1, 4) 
25 FORMAT (4A4) 


Data RAMASUBRAMANIAN 


Will store RAMA in A(1), SUBR in A(2), AMAN in A(3) ang IANPin 
A(4). 


Exampie 


Suppose а set of names are given and it ig required to fing 
the number of ‘A's in each name and print the name alongwith the 
count of the ‘A's in it then the following Program may be 
written. 


C *** EXAMPLE PROGRAM 11.1 
С *** ILLUSTRATION FOR A-FORMAT 
с COUNTING THE NUMBER OF А 
CHARACTER NCHAR(20),CHARA,STAR 
READ(*,25) CHARA,STAR 
25 FORMAT( 2A1 ) 
10 KOUNTA = 9 
READ(*,30) ( NCHAR(I)II = 1,20 ) 
30 FORMAT( 20A1 ) 
IF ( ICHAR(NCHAR(1)).EQ.ICHAR(STAR) ) GO TO 45 
DO 22 J = 1,20 
IF ( ICHAR(NCHAR(J)).EQ.ICHAR(CHARA) ) KOUNTA 
22 CONTINUE 
WRITE(*,35) ( NCHAR(II = 1,20 ),KOUNTA 
35 FORMAT( 1H,20A1,5X,I2 ) 
GO TO 10 
45 WRITE(*,*) 'END OF NAMES' 
STOP 
END 


Program 11.1 Finding number of А5 in a name 


7 KOUNTA +1 
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Observe that the character * is used to indicate the end of 
the list of names. The program reads the characters А апа * 
respectively into variable names CHARA and STAR. Each character 
in the name is read into an individual variable name to 
facilitate checking whether it is an A. If a particular 
character is an A a counter is  incremented. The direct 
comparison of character information is not possible in FORTRAN on 
IBMPC. However, а built in function ICHAR converts a character 
argument to а unique integer. This function can be used to 
compare the integer equivalents of characters. 


Using this basic idea a number of interestin i i 
í manipu 
of character strings can be done in FORTRAN. š A Men. 


11.6 Some Comments on Formats 


In Chapter VII the rules for writing Format statements For 
input data was presented. They were kept intentionally 'strict' 
to reduce possible confusion to beginners. The rules are in fact 
less rigid to allow more flexibility in data preparation The 
following points indicate these. 5 


(1) Тһе presence of а decimal point in the field of input data 


specified using F or E format over ri 
GE 5 - ides the "а" 
specification in formats Ew.d and А n 5 

coped Fw.d. Thus if the data is 


123.458011.45Е10 
and specified by the format: 


FORMAT (F6.0, 2X, E8.1) 


the data would be correctly read in even th А 
format would be ough the stricter, 


FORMAT (F6.2, 2X, Е8.2) 


(2) In the E and Е specifications a decimal point need not be 


explicitly typed. If it is not typed the numb 221 
after the decimal point as given in the е number es е 
taken. Thus if the number 10524 is input with the 


corresponding Format given as FORMAT (F5.2) then the number 
will be taken as 105.24 ЈЕ it is typed as 10524E-02 with 
FORMAT (E9.2) the number will be taken as 105.24E-02. 


ed in E format need not have an E explicitly typed. 


(3) Data typ 
number typed as 145.1*2 with FORMAT (E7.1) will Бе 


Thus а 
read in as 145.1E2. Observe that the 4 sign instead of E 
for the exponent 15 essential. А number input as 1425-4 


with FORMAT (E6.2) will be taken as 14.25Е-4 


(4) The specification WX in an input format ignores the 
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contents of the specified w columns in the 
Thus unwanted information in fi 
example the following statement 


input record. 
les may be skipped. For 


READ (7,25) A,B 


25 FORMAT (F6.2, 5X, F6.2) 
Data 


145.32VALUE125.45 


would read in 145.32 into A an 


d 125.45 into B and ignore the 
characters VALUE as though they were blanks. 


11.7 Use of Files in Fortran 


So far we assumed that а11 input data are typed using the 


keyboard of the video terminal and output displayed in the video 
display. If large amount of data is to be read repeatedly or is 
to be kept for reference it would be necessary to store it in 


magnetic disk. Similarly results of computation are also stored 
in a disk. Fortran provides filing faci 


lity on disk. Such files 

are called external files. 

A file is first opened for reading or writing by the 
statement. 

OPEN (Unit number, FILE = 'file name') 

Unit number is an integer or an integer expression and file 
name is a character string. Thus the statement 

OPEN (25, FILE = 'IN.DAT') 


Will open 


a unit numbered 25 from which the file 
Will be read 


2 named TN.DAT 
or using which output will be written in IN.DAT. 


The following program shows how data may be entered via the 
keyboard and stored in MARKS.DAT 


C *** EXAMPLE PROGRAM 11.2 
С *** EXAMPLE OF FILE CREATION 
INTEGER ROLLNO,MARKS(5) 
OPEN(20,FILE = 'MARKS.DAT") 
DO 50 Ј = 1,200 
READ(,*) ROLLNO,( MARKS(I),I = 1,5 ) 
WRITE(20,30) ROLLNO,( MARKS(I),1 = 1,5 ) 
30 ҒОВМАТ( 14,513 ) 
IF (ROLLNO .EQ. 0) GO TO 999 
50 CONTINUE 
999 CLOSE(20) 
STOP 
END 


Program 11.2 Creating a file on disk 
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The file named MARKS.DAT will b 
students will be stored in it. Tene раванд qug ee ө5 


The following program shows how 
processed in Fortran. MARES ca e 


C '** EXAMPLE PROGRAM 11.3 
C *** PROCESSING OF DATA FROM DISK FILE 
INTEGER ROLLNO,TOTAL,AVGE 
DIMENSION MARKS(5) 
OPEN(20,FILE = 'MARKS.DAT') 
OPEN(25,FILE = 'AVEMAR.DAT') 
TOTAL = 0 
DO 50 J = 1,200 
READ(20,80) ROLLNO,( MARKS(I,I = 1,5 ) 
30 FORMAT( 14,513 ) Ñ 
WRITE(*,*) ROLLNO,( MARKS(I),I = 1,5 ) 
IF ( ROLLNO.EQ.O ) GO TO 999 А 
ро 32 К = 1,5 
TOTAL = TOTAL + MARKS(K) 
32 CONTINUE 
AVGE 2 ІМТ( FLOAT(TOTAL)/5.0 + 0.5 ) 
WRITE(25,35) ROLLNO,( MARKS(I)I = 
35  FORMAT( 14,713 ) сод шү Е 
50 CONTINUE 
999 WRITE(*,*) ‘END OF INPUT БАТА! 
CLOSE(20) 
CLOSE(25) 
STOP 
END 
Program 11.3 Processing a file from disk 


Observe in the above program that the file MARKS.D 
read, the information in it processed and the rectas ee 
a 


written back in the file AVEMAR.DAT. 


SUMMARY 


s chapter we will present a list of points to 


To conclude thi 
ting format statements: 


be checked while wri 
Да The order in which data is typed on а keyboard 
i i should 
correspond to the order іп which the vara ables in the орке 

list are specified. 
in I,E and F formats) should be right adjusted 


21 Input data ( 5 : 
respective fields. 


within their 
3: The type of variable name and the corresponding Format 
should tally. Thus reals should use 5, and F 


declaration | 
Formats and integers I Format and characters A Format. 


10. 


The list elements in READ, and WRITE should be variable 
names and not expressions. 


In output statements one extra column should be left for the 
sign of the number. 


If the approximate range of values of a real number to be 
printed is not known E Format shoul 


ы ч d be used. A safe E 
Format is E15.8 in such cases. 
In Hollerith specifications the number of characters 
(including blanks) should be accurately counted. 
In 


WRITE statements the first Specification is 
control character 
used. 


1 а carriage 
and the appropriate character should be 


Character data to be stored in memory are specified 
CHARACTER type specification. 
converted to integers 
manipulation. 


using 
Characters should be 


using a built in function for any 


If large amounts of data are to be read or written and 
preserved it is preferable to store the data on disk. 
Fortran statements to read data from disk and write data on 
disk were also discussed in this chapter. 


Chapter XII 
Functions and Subroutines 


A number of frequently occuring mathematical functions are 


built into the FORTRAN language. These are the sine, cosine, 
squareroot etc., discussed earlier and are provided by the 
compiler. Only those functions which are extensively used are 
kept in the compiler's library. The user, however, has the 
option to define new functions which he wishes to use often in 
his program. Methods of defining such functions will be 


discussed in this chapter. 


12.1 Function Subprogram 


Consider, for example, a program which calculates the 
savings and interests of the customers of a bank. A useful 
function in such a program might be one which gives the value of 
simple interest as a function of balance in one's account 
interest rate and duration of savings. One may thus define а 
function. 


ENTRT (RATE, BAL, YRS) = BAL*RATE/100.*yRS 
where RATE, BAL, YRS are dummy variables. 


If the function is to be used in a program one may write 


BALANC = BALANC + ENTRT(A,B,C) 


The values of RATE, BAL and YRS will be taken to be the values 
stored in А,В and C respectively and the expression evaluated. 
In the above statement the function ENTRT is said to be called by 
the appearance о: function name ENTRT(A,B,C). The function 
definition ENTRT (RATE, BAL, YRS) merely tells the compiler, the 
type of calculation to be performed. Тһе actual computation is 
performed and a value returned for use in evaluating BALANC only 
when the computer executes the statement 


BALANC = BALANC + ENTRT (А,В,С) 


which uses (calls) the function. This function is defined by the 
Function sub-program given below: 


FUNCTION ENTRT (RATE, BAL, YRS) 
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ENTRT - BAL*RATE/100.0*YRS 


RETURN 
END 
The first statement above defines the name of the function 
and lists the dummy arguments. The body of the subprogram tells 
what computations are to be performed on the arguments. One or 


more RETURN statements in the body of the subprogram signals the 
logical end of the subprogram and returns to the main program 
with the value of the function found at that stage. The last 

statement in a subprogram is the END statement which signifies 
the physical end of the subprogram. A subprogram may be compiled 


separately and is said to be externally defined. The general 
form of a function subprogram is: 


ES E e Ms аһ) 
ccv C ca e A оду ы санла ML PEE 
CE She OQ GROS Giro eT оке био Ы ТЕЗІ ТУТ 92582 
пале = ед (ала, 1. aa sati COCA 
RETURN 
EB АКСЫН SE Sam aml ЫБЫЛЫ E LA cu. U 


The following rules must be remembered while defining functions: 


(i) The function name consists of 1 to 66 letters or 


п 5 digits. 
Only the first "six characters are however, 
significant(others are truncated). The first character 


must be a letter. Мо Special characters are allowed. 
(ii) In the body of the subprogram the name of the 
must appear at least once on the left 


arithmetic statement or must appear in a 
list. 


function 
hand side Of an 


n input Statement 


(113) TAII the! dumm 


у arguments must appear at least once in 
subprogram. 


the 


(iv) The arguments in the Function subprogram must only be real 
or integer variable names or array names. No constants 
or variables with subscripts are allowed as arguments 
Array names are, however, valid as arguments and š 
DIMENSION statement must follow the FUNCTION Statement 
UM S a cU NL PRSE but 
FUNCTION A(B,K) followed by DIMENSION K(10) is valid. 

(v) Other variables may appear as 


. Parameters in the 
subprogram. They must appear again 


and must be defined 
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when this program is called by the main program. 


(vi) The FUNCTION subprogram must not be placed between two 
чы T of the main program. It should be placed after 

e statement of the main ro i 
the Ер, program calling the 


The function is called by the main pro 
с gram by the appearance 
of the FUNCTION name in a statement. The rules to be remembered 
when calling a function are listed below: 


(i) The arguments in the calling functio i 
n must agree in 
number, order, апа mode with th i 
statement in the subprogram. ka cb БЕШИ ТОН 


(ii) If а dummy argument is an arra i 
3 Y name the correspon 
argument in the calling function must also be a i 
name with identical dimension. i 


(iii) The arguments in the calling pro А 
x 3 gram ma 
subscripted variables, variable nande cr ар 
provided condition (i) is satisfied. соле А ОТ 


We will close this section with two exa А : 
the definition and calling of FUNCTION А ноты illustrating 


Example 12.1 


Suppose the frictional force acting on a Particle is giv 
en 


by the equations: 
f(x) = 0 for ixi < 0.5 


= 2x2 ха > #1025 
It is required to use this function in the equation 
g = (mv/t) - £(v2) + at 


A small program to do this is written below 1 
12.1). It is seen from the example that 1n Fortran (Example 


(i) The calling argument is an expressi i 
: : : $ 51 - i i 
provided it is in the same 8548 Кеш Шү 
argument. T 


(ii) The function name is set е 
Е 5 5 д qual 
arithmetic expression in the body NM EUM. 
The value returned to the main Program will thus be 
in real mode. 
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C *** EXAMPLE PROGRAM 12.1 
C *** FUNCTION USE ILLUSTRATION 
READ(*,50)AM,V,A,T 
50 FORMAT(4F10.4) 
С = AM'V/T - FRIC(V'V) + A'T 
WRITE(*,60) 6 
60 FORMAT(F10.4) 
STOP 
END 


FUNCTION FRIC(X) 

IF ( ABS(X).LE.0.5 ) THEN 
FRIC = 0 

ELSE 
FRIC = 2.0*X*X 

ENDIF 

RETURN 

END 


Program 12.1 Illustrating defining a function 


Example 12.2 


Suppose it is required to add the scalar products of 3 pairs 
of 10 elements vectors, the following program would do it. 


C *** EXAMPLE PROGRAM 12.2 
C *** ADDITION OF SCALAR PRODUCTS 
C THE FOLLOWING IS THE MAIN PROGRAM 
DIMENSION K1(10),M1(10),K2(10),M2(10),K3(10),M3(10) 
READ(*,25) (K1(),M1(D,K2(D,M2(D,K3(),M3(D,I = 1,10) 
25 FORMAT( 612 ) 
WRITE(*,*) (K1(),M1(),K2(),M2(),K3(),M3(1),] = 1,10) 
ISUM = ISCAPR(K1,M1) + ISCAPR(K2,M2) + ISCAPR(K9,M3) 
WRITE(*,60) ISUM 
60 FORMAT( 16 ) 
STOP 
END 


с THE FOLLOWING IS THE FUNCTION SUB PROGRAM 
FUNCTION ISCAPR(,L) 


DIMENSION J(10),L(10) 
ISCAPR = 0 
DO 50 I = 1,10 

50 ISCAPR = ISCAPR + J(D*L(I) 
RETURN 
END 


Program 12.2 Finding scalar product of two vectors 
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From the above example we observe that 


(i) The calling arguments agree in number,order and mode 
with dummies J and L. 


(ii) The value returned 15 in integer mode as it is 
stored in ISCAPR before return. 


(iii) The vectors J and L have a DIMENSION declaration 
within the subprogram eventhough they are  dummies. 
This tells the compiler that the dummies are in fact 
vectors. 


12.2 SUBROUTINE Subprograms 


A function subprogram returns only one value to the main 
calling program. If more than one value is to be returned, a 
subprogram called a SUBROUTINE is required. In cases where a 
value is not returned but some specific operations are performed 
like transposing a matrix then also we require SUBROUTINE 
subprograms. 


Example 12.3 


Consider for example, a program where the roots of quadratic 


equations are needed frequently. A subprogram in this case is 
required and it would return four values, namely, the real parts 
and the imaginary parts of the two roots. A FUNCTION subprogram 


cannot do this and a SUBROUTINE is required. A SUBROUTINE to 
obtain the roots of the equation: 


ax? + bxtc = 0 
with a #0 would-be written as illustrated in Example 12.3. 


Observe that the variable names that represent the values to 
be returned to the main program are included in the list of 
arguments. The name of the SUBROUTINE, namely ROOTS does not (and 
should not) appear in the body of the subprogram. It is merely 
a title given to the SUBROUTINE so that the main program may 


refer to it. 


The general form of a SUBROUTINE subprogram is 
SUBROUTINE name (list of arguments) 


RETURN 


END 
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C *** EXAMPLE PROGRAM 12.3 
SUBROUTINE ROOTS(A,B,C,XI1,XI2, XR1,XR2) 
D = B'B - 4.0*A'C 
IF (D) 10,20,30 


10 ХІ = SQRT(-D)/(2.0*A) 
XI2 = -хп 
ХВ1 = -B/(2.0*A) 
XR2 = Хе! 
RETURN 
20 XII = 0.0 
XI2 = 0.0 
ХЕ1 = -B/(2.0*A) 
XR2 = XR1 
RETURN 
зо хп = 0.0 
XI2 = 0.0 
Z = SQRT(D) 
XR1 = (-B + Z)/(2.0*A) 
XR2 = (-B - Z)/(2.0*A) 
RETURN 
END 


Program 12.3 А subroutine to solve a quadratic equation 


There пау be more than one RETURN statement in the bod of 
the SUBROUTINE. The list of arguments consists ot the Varia 
names of the values to be returned together with the Naridblé 
names of the data to be used in the subprogram. Тһе тень 
are, of course, dummies. The SUBROUTINE name follows the = 
rule аз for а variable name. 745 


Ав a SUBROUTINE пау return more than опе у i 
alue 
cases may not return any value a special statement ПР ETE 
call the SUBROUTINE from the main program. This statement is : Я 


CALL name (list of arguments) 


The list of arguments must agree in n 
^ umber 
with dummy arguments in the SUBROUTINE definition id ais S 
the SUBROUTINE ROOTS (A,B,C,XI1,XI2,XR1,XR2) considered Sn 
may be called by the statement : ar 
CALL ROOTS (5., 2. эр, E*D**2, Ү1,Ү2,Ү3 Y4) 
. , 


provided D апа E are defined earlier. T 
calculated will be substituted in place of А,В "EG ЕЦ 
SUBROUTINE and the values of roots stored in Y1,Y2,Y3 and ya A 
SUBROUTINE can call other SUBROUTINES but it cannot call itself 
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Caution 


When constants or expressions are used 

à as argume i 
CALL statement the corresponding dummy So RE sane “iene 
subroutine should not be redefined within the routine. Thus pP 
is important to exercise great care when this facility is used А 


We will now consider а few examples of SUBRO i 
n ^: n n UT i i 
and calling which will clarify the rules. SMS MR UE 


Example 12.4 


A subroutine which transposes the rows a 
; В r nd column 
matrix is given below. The subroutine could accept ur EA 25 


size upto 20 x 20. 


This subroutine may be called by the main program as follows: 


С *** MAIN FOR PROGRAM 12.4 
С *** THE FOLLOWING IS THE MAIN PROGRAM 
DIMENSION 1А(20,20) n? DRE AE 
C — DIMENSION OF IA IN MAIN PROGRAM AND 
С MATRIX IN SUBPROGRAM MUST BE IDENTICAL 
READ(C,25) (( IAQ,D,J = 1,5 JI = 1,10 ) 
25 FORMAT( 514 ) 
CALL TRPOSE(IA,10,5) 
WRITE(*,35) (C IAQ,JI = 1,10 )J = 1,5 ) 
35 FORMAT( 5Х,1014 ) 
^ STOP 
END 


C *** EXAMPLE PROGRAM 12.4 
SUBROUTINE TRPOSE(MATRIX,N,M) 


с м ROWS AND MCOLUMNS ІМ TRANSPOSED MATRIX 
DIMENSION MATRIX(20,20),ITEMP(20,20) 
с TEMPORARY LOCATIONS FOR TRANSPOSED MATRIX ARE NEEDED 


po 35 I = LN 
po 35 J = LM 

35 ITEMP(LJ) = MATRIX(J,1) 

с THE FOLLOWING DO STORE TRANSPOSED М 

ро 45 I = LN ATRIX BACK IN MATRIX 
ро 45 J = 1М 

45 MATRIX(LJ) = ITEMP(I,J) 
RETURN 
END 


Program 12.4 A subroutine to transpose a matrix 


The following points should be noted: 


SUBROUTINE does not return one value. It transposes 


(i) The 2 à 
given by the main program and leaves it in 


the matrix 
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storage. Upon completion of its job it returns control to 
the statement immediately following the CALL statement. 


(ii) The SUBROUTINE can and should be made as general as 
possible. For example, in this program even though IA, is 

.only a 10 x 5 matrix the SUBROUTINE can handle upto a 20 x 

20 matrix. In a more complicated main program one would 

call the subroutine many times (this is the reason for its 
being) and a generalized SUBROUTINE is desirable. The 
arguments М and M in the SUBROUTINE are given values by 

the main program when it is called. The number, order and 


mode of the arguments of the CALL statement and SUBROUTINE 
agree. 


(iii) The SUBROUTINE is separately compiled and it does not 
matter if the same statement numbers are used in the main 
program and the SUBROUTINE. Observe the statement number 
25 which is found in both the main program and SUBROUTINE. 
The same variable names may occur in the main program and 
the SUBROUTINE with different values stored in them. This 
in turn implies that if a value stored in a variable name 
is to be transmitted to a SUBROUTINE it can normally be 
done only through the argument list unless one takes 
special pains to ensure correspondence by a statement 
called COMMON which we will discuss later. 


(iv) Every subscripted variable in the SUBROUTINE must have a 
DIMENSION specification. The dimensions of dummy array 
names in a SUBROUTINE and the corresponding arrays in the 
main program must be identical. 

(v) A SUBROUTINE may call other subroutines by CALL statements 
to accomplish a job. A subroutine, cannot, however, call 
itself either directly or indirectly. 

12.3 The COMMON Declaration 


It was noted in the last section that variables are 
transmitted between the main program and the subroutine through 
argument lists. FORTRAN provides another convenient method 


- using 
which values may be transmitted between a main program and 
subprograms by using a declaration called COMMON. This 


declaration reserves а block of locations in memory called a 
common block. Values of variables stored in this common block are 
made accessible to a program calling the subroutine through a 
corresponding COMMON declaration in the called program. The use 
of COMMON declaration 15 illustrated below using the subroutine 
TRPOSE. 


In the above example the matrix MATRIX and the variables M 
and М are reserved a block of common storage which is accessible 


to the main routine as well as other routines. In the common 
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C *** EXAMPLE PROGRAM 12.5 
C *** ILLUSTRATING USE OF COMMON 
COMMON IA,JP,JQ 
DIMENSION 1A(20,20) 
READ(*,25) (( ТА(ЈЛ),Ј 
25 FORMAT ( 514) 
JP — 10 
JQ = 5 
CALL TRPOSE 
WRITE(*,35) (C ТАЈ) = 1,10), = 1,5) 
35 FORMAT( 5X,1014 ) 
STOP 
END 


1,5),1 = 1,10) 


! 


SUBROUTINE TRPOSE 
COMMON MATRIX,N,M ` 
DIMENSION MATRIX(20,20),ITEMP(20,20) 
DO 35 I = LN 
DO 35 J = 1,M 
35 ITEMP(I,J) MATRIX(J,I) 
DO 45 I = LN 
DO 45 Ј = 1, 
45 MATRIX(I,J) = ITEMP(I,J) 
RETURN 
END 


Program 12.5 Illustrating use of COMMON statement 


storage area they are stored in the order in which they occur in 
the COMMON list. When the main program calls the subroutine the 
matrix IA is taken as synonymous to the matrix MATRIX, JP as 
synonymous to N and JQ as synonymous to M in the subroutine. 


Observe that there is no argument list in either the CALL or 


the SUBROUTINE declaration as it is unnecessary. One may, 
however, transmit some arguments through COMMON and others 
explicitly. In the above example one would do this by modifying 


the COMMON, CALL and SUBROUTINE statements as follows: 
DIMENSION IA(20, 20) 
COMMON IA 
CALL TRPOSE(JP,JQ) 
SUBROUTINE TRPOSE (N,M) 
DIMENSION MATRIX (20, 20) 
COMMON MATRIX 


The important point to remember is that the list of array 
and variable names in the COMMON declaration in the main 


ames A 
program must be in the same order as the corresponding ones in 
the COMMON declaration in the subroutine. Further, the arguments 


ed in COMMON should not appear aS any argument of the CALL or 


list , 
SUBROUTINE declarations. 


the 
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Example 12.6 


А program which determines the number of data points in each 
one of а set of assigned intervals is written below. This is 
called a frequency table and is extensively used in statistics. A 
number of points worth noting from this example are: 


(i) А subroutine may call other subroutines 
Finally when control returns to the main 
values are available in its arguments. 


to accomplish a job. 
program the current 


(ii) Observe the COMMON statements used in the 


the main program. Only variables not 
explicitly noted in the argument lists 


subroutines and 
д in COMMON are 
in CALL statements. 


C *** EXAMPLE PROGRAM 12.6 
C *** PROGRAM FOR FORMING A FREQUENCY TABLE 
с THE PROGRAM USES А SUBROUTINE TO OBTAIN A FREQUENCY TABLE 
INTEGER DATA(200),POINTS,BOXES(20),BIG,SMALL 
COMMON DATA,POINTS,BOXES 
MAXIMUM 200 DATA STORED IN DATA ARRAY 
POINTS GIVES ACTUAL NUMBER OF DATA ELEMENTS 
INTERVALS OF WIDTH OF BOXES IN THE FREQUENCY TABLE IS SPECIFIED 
READ(*,10) POINTS,INTVLS 
10 FORMAT( 214 ) 
© INPUT DATA IN THE FORM ' XXX XXX ' 
с NEXT INPUT STATEMENT READS DATA TEN FRO 
OPEN(25,FILE = 'SHOW.FOR') 
READ(25,20) ( DATA(I),I = 1,POINTS ) 
20 FORMAT( 1016 ) 
CALL FRTBLE( INTVLS,BIG,SMALL ) 
J = (BIG-SMALL)/INTVLS + 1 
WRITE(*,30) 
30 FORMAT( 26X,15HFREQUENCY TABLE ) 
WRITE(*,40) J 
40 FORMAT( 1X, // 2016 ) 
WRITE(*,50) ( BOXES(K),K = 1,7 ) 
50 FORMAT( 1X, // 2016 ) 
STOP 
END 


ооа 


M EACH LINE 


*** THE FOLLOWING PROGRAM IS A SUBROUTINE T 
6 IT CALLS TWO OTHER ROUTINES TO GET LEAST DA M FREQUENCY TABLE 
C OF DATA IN A SMALL SET 
SUBROUTINE FRTBLE( INTL,LARGST,LEAST ) 
DIMENSION IDATA(200),IFREQ(20) 
ARRAY IDATA STORES DATA POINTS 
ARRAY IFREQ STORES FREQUENCY TABLE 
COMMON IDATA,NRPTS,IFREQ 
б NRPTS IS THE NUMBER OF DATA ELEMENTS 
CALL MINMUM( LEAST ) 
CALL MAXMUM( LARGST ) 


са 
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с SUBROUTINE MINMUM RETURNS THE SMALLES 
с NUMBER ОЕ INTERVALS IS COMPUTED IM ANDAN ca! Sere in Me a 
NOINTL = ( LARGST - LEAST )/INTL + 1 
DO 20 I = LNOINTL 
20 IFREQ(I) = 0 
с THE FOLLOWING DO LOOPS SORT INPUT DA 
с APPROPRIATE INTERVALS MAD 
DO 60 I = LNRPTS 
LIMIT = LEAST + INTL 
DO 40 K = 1,NOINTL 
IF ( IDATA(I).LE.LIMIT ) GO TO 50 
LIMIT = LIMIT + INTL 
40 CONTINUE 
50 IFREQ(K) = IFREQ(K) + 1 
60 CONTINUE 
RETURN 
END 


SUBROUTINE MINMUM ( MIN ) 
DIMENSION NDTA(200) 
COMMON NDTA,NPTS 
с NPTS IS THE NUMBER OF DATA 
MIN = NDTA(1) 
Do 20 I = LNPTS 
IF ( NDTA().LT.MIN ) MIN = NDTA(I) 
20 CONTINUE 
RETURN 
END ` 


SUBROUTINE MAXMUM( MAX ) 

DIMENSION NDTA(200) 

COMMON NDTA,NPTS 

MAX = NDTA(1) 

DO 20 I = 1,NPTS 

IF ( NDTA(D.GT.MAX ) MAX = NDTA(I) 

20 CONTINUE 

RETURN 

END 


Program 12.6 A program to form a frequency table 


11.4 Conclusions 


А complex programming problem should be broken up into a 


number of subtasks. These subtasks may be program 
med 

and tested. After all the subprograms are ЕЕ а еі 

held together by а main routine. This method of attack 


modularises à large program and has the following advantages. 


(3) 1628 easier to read and understand the program. 
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(ii) 


(111) 


(iv) 


12.1 


12.2 


12.3 


12.4 


А large programming job can be done by 


a team of 
programmers each having a specific assignment. 


It is easier to debug the program. 


The subroutines generated in the problem 


solution can be 
kept in a library for use 


in other programming jobs. 


EXERCISES 
Write function subprograms for the following functions: 


(i) sinh^! x 


(ii) f(x,y) = (x2 + ү2)1/2 
Write a function sub-program for the function f(x) defined 
below: 

f(x) = 2x? + 3x + 4 for x < 2 

f(x) = O 2 for x = 2 

f(x) -2x^—-.3x'- 4 forx»2 


Write a function subprogram to evaluate the function 


Е 51" Е 
Sa St oh Soe die 
f (x) 1 21 di 61 8! (ом 121 


Write a function subprogram to evaluate the function: 


to five significant digits. 


Write a subroutine to multiply a square Matrix by a 
vector. Assume a 6x6 matrix and a 6 component vector 
The CALL statement would give the size of the matrix and 
the names of the matrix and the vector. 


Use the subroutine of Problem 12.5 to Anh 
matrix whose elements are given by g rate а 6x6 


ayy = 27 073) 


12.7 


12.9 
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Write а subroutine to find the trace of a matrix. The 
trace 15 defined as the sum of the diagonal elements of 
the matrix. How would this routine be called? 

Write a subroutine to find the norm of a matrix. The norm 
is defined as the square roo 
the elements in the matrix. How would you CALL this 
subroutine? 


subroutine to sort a set of 10 numbers in 


Write a 
How would this routine be 


ascending order of magnitude. 
called? 


Chapter XIII 
Fortran Program Examples 


А11 the instruction types available in FORTRAN have now been 
discussed and it will be worth-while to write complete  FORTRAN 
programs to solve some interesting problems. We will consider 
two examples in this chapter. 


13.1 А Single Address Computer Description 


In this section we will write a program to simulate the 
detailed working of a small hypothetical digital computer. The 
program 15 called a simulator program for SMAC (SMALL Computer). 
This technique of simulating the function of a computer on ап 
already existing computer is widely used for developing software 
for new computers. Further, this example will illustrate the 
internal structure and functioning of a typical digital computer. 


SMAC has the following specifications: 
(i) 999 memory locations 


(ii) Each memory location can accommodate a 5 digit word and a 
sign. А word is thus in the form  *XXXXX 


(iii) Each word can store one instruction or one data. 


(iv) An instruction for this machine consists of two 
One part gives the code for the operation to be 


K— k 4 


What? Where? 


parts. 
performed 


Op sae Address 4 


An Instruction 


Fig. 13.1 Instruction format of SMAC 
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and the other part gives the location in memory where the 
operand will be found. The sign is assumed to be positive 
in an instruction and not explicitly shown. Fig. 2321 
illustrates this. As the memory has a total of 999 
locations, three digits are needed to address all the 
locations. The remaining 2 digits in the word may be used 
to code the various operations to be performed by the 
computer. Theoretically 100 operations may be coded with 
two digits. We will, however, have a much smaller number 
of operation codes. 


(v) SMAC has an arithmetic unit where all arithmetic 
operations are performed. The arithmetic unit has a one 
word length (5 digits) register called ‘an accumulator 
register where the results of arithmetic operations are 
temporarily stored. It is also used as an implied operand 
in arithmetic operations. 


(vi) It has an input unit which reads information from a 
keyboard and an output unit which displays the results. 


(vii) It has a control unit which decodes instructions and 
supervises execution of programs. The control unit has 
three registers. An OP code register where the operation 
code is stored, an address register called MAR which 
stores the address part of an instruction and an 
instruction counter which stores the address of the 
instruction to be executed next. A block diagram of the 
computer with all the registers used in it is shown in 


Fig.13.2. 

A program for SMAC consists of a set of machine instructions 
followed by data. Each data (or operand) can have at most 5 
digits and a sign. 

The computer operates in two phases. In the first phase the 
list of instructions is read and stored in memory starting from 


address 001. The end of the list of instructions is signalled by 
a special code. Data follow this and are not read during this 


phase. 

In the second phase the control unit fetches the first 
instruction stored in memory. The operation code is entered in 
the OP code register and address part of the instruction is 
entered in the memory address register (MAR). The dinette tion 


the control unit is incremented by 1. Thus the 


counter in 
has the address of the instruction to be 


instruction counter 
executed next. 


The OP code is then decoded. The control unit activates the 


я for executing the instructi 
appropriate part of the computer : ЕР әл, 
БЕР БЕ able. data will be read and stored in memory if the 
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CONTROL UNIT 


OP RDDRESS 
L. ж Бере | S REGISTER REGISTER 


INSTRUCTION COUNTER 


RRITHMETIC UNIT 


ia uL Ий 


RCCUMULRTOR 


eee Be CONTROL SIGNALS 
—— DATA AND INSTRUCTION PATHS 


Fig. 13.2 Block diagram of SMAC 


instruction is an input instruction. If the instruction 
branch (jump) instruction the contents of the 
is determined by the executed instruction. 
instruction the current OP code order is е 

instruction counter has the address of the BORE Јаве ох the 
sequence. A flow chart depicting the operation of loading m 
executing programs іп SMAC is shown in Fig.13.3. 


с is а 
instruction counter 
If it is not a branch 


13.2 The Instruction. Codes 
Ad. 22 


OP Code 01: Instruction Form: 01ХХХ where XXX is th 
part of the instruction. s address 


Set 
Instruction Counter 
as commanded by 


| Instruction 
ilu i 


Execute 
instruction 


Yes 


Initialise 
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Memory Location 


Counter Increment 
Memory Location Counter 


by ! 
Read Instruction 
from Program 


Store in Rddress 
given by 


Memory Location Counter 


Set 
Instruction Counter 
to 88! 


Read Instruction 
from address 
given by 
Instruction Counter 


Increment 
Instruction Counter 


by 1 


Enter OP Code 


Enter 
Rddress part of 
instruction in MAR 


Decode OP Code 


instruction 


Execute 
instruction 


Is it 
, а Stop 
instruction 
? 


Yes 


Fig. 13.3 Flow chart depicting SMAC operation 


Meaning: Clear the accumulator 


contents of memory loca 


In working with a mac 
to distinguish between the 
contents of the word. 
contents of address 
denote 'replaces' 

А11 the OP codes and 
EISI The following abbre 
INCTR: Instruction 
Operation code registe 


their meanin 
viations are 
counter, 
B: 


g 


Instruc- 

tion Meaning 

Format 

O1XXX Clear accumulator and 
transfer C(XXX) to 
accumulator 

02XXX Add C(XXX) to accu- 
mulator 

03XXX Subtract C(XXX) 
from C(IACC) 

OAXXX Multiply C(XXX) by 
C(IACC). Product 
must be less than 
five digits in 
length 

05XXX Divide C(IACC) by 
C(XXX). Only quo- 
tient available 

06 | 06XXX Store C(IACC) in 
address XXX 
07 |. 07XXX Take next instruc- 


tion from location 
XXX 


register and enter 
on XXX in it. 


the 
Ei 


Will be used 


S are tabulated in Table 
used:  IACC: Accumulator, 
Address register, ТОР: 


IADDR - XXX 
C (ТАСС) «С (xxx) 
INCTR«—INCTR4«1 


IADDR = xxx 


С (ТАСС) €—c (ТАСС) +C (xxx) 
INCTR«—INCTR-41 


XXX 
С (ТАСС) «С (ТАСС) 
INCTR«—INCTR41 


-C(XXX) 


IADDR = Xxx 


C (IACC) €-C (ТАСС) «c (XXX 
INCTR«—INCTR41 | 


ТОР 05 
IADDR = 


C (IACC) <—С (ТАСС) /C (XXX 
INCTR-—INCTR4j 


С (XXX) €-c (ТАСС) 
INCTR<-INCTR+1 


ج 
08XXX Branch to location IOP - 08 Mex ~‏ 08 

XXX if accumulator IADDR = XXX 

contents is negative, IF C(IACC)<0,INCTR<-IADDR 

otherwise go to the IF C(IACC) >0, INCTR<-INCTR+1 

next instruction in 


sequence 
----+------- dnm rU = fn 
09 09XXX Take data from input IOP - 09 
unit and store in IADDR - XXX 
memory adresss XXX C(XXX) <- input data 
INCTR < INCTR+1 
- “د-31‎ |--е==_-_-беа=вша--–-_„ 22202 аң __ 
10 10XXX Display contents ТОР`: =*10 
of location XXX IADDR - XXX 
C(XXX) — DISPLAY 
INCTR € INCTR+1 
11 11000 Stop executing pro- TOP 42977 «05» bivale am 
gram. Address part 
not used 


таре ШЗ 


The machine language program is typed using the format: 


FORMAT. (ІЗ, 3X, I2, 3X, ІЗ) 
The first three columns are used to indicate the location of 
instruction. It is followed by 3 blanks and 2 columns with E 


OP code. The next three columns are blank and is followed by the 
three digit address. 


loads program in memory Starting from memory 
The programmer has to remember this 

program and start his first instruction from 
He has to know, besides, exactly where in memory 
machine instructions is stored. This is 
necessary since he has to ‚Бе. able to branch to specific 
instructions in memory. This is illustrated by the machine 
language program given below which compares two numbers I and J 


and outputs the larger of the two: 


machine 


The 
(or location) 001. 


address - 
in writing his 
location 001. 

each one of the 


Address (Location) of OP Code тайған ptsoperand 
instruction in memory оі operand 
001 09 100 
002 09 101 
003 01 100 

03 101 


004 
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005 08 008 
006 10 100 
007 11 000 
008 . 10 101 
009 11 000 
000 00 000 


In the above program, the first machine instruction is to 
input а number from the input unit. The number I is stored in 
address 100. This instruction itself is Stored in address 
001 of memory. The second instruction inputs J into 101. 
The third, fourth and fifth instructions compare I and J. 
If Т is larger than J instruction 006 is reached and I is 
displayed. Tf. I is smaller than Ј instruction 008 is 
reached апа J is displayed. Observe that the programmer has to 
know at instruction 005 the location (i.e., address) to which 
control 1з to be transferred if (I-J) is less than zero. Hence 
he should keep track of the location of each instruction stored 
in memory. Arbitrary numbering of Statements as in FORTRAN is 
not allowed as the machine instructions are Stored in successive 
locations in memory апа the control unit takes them out 
sequentially. The last line of the machine language program 
corresponds to the END statement in FORTRAN and signifies the 


Physical end of the program. The end of instructions is coded 
with all zeros. 


13.3 A Simulation Program for SMAC 


A simulation program will now be written in FORTRAN to 
simulate SMAC. The composition of the complete Program is shown 
in Fig.13.4. The FORTRAN program itself is listed with comments 
to explain the program. The program essentially simulates the 
flow chart (Fig.13.3) depicting machine operation and executes 
the OP codes of the machine language. 


С SMRC SIMULATOR 


Fig. 13.4 Program and data sequence for SMAC simulator 
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C *** EXAMPLE PROGRAM 13.1 

C *** SMAC SIMULATOR 
DIMENSION MEMORY(999) 
MLOC - 1 

10 READ(*,15) LOCN,IOP,IADDR 

15 FORMAT( 13,3X,12,3X,I3 ) 
THE MACHINE LANGUAGE PROGRAM IS READ AND STORED IN 
LOCN = 0 INDICATES END OF MACHINE LANGUAGE PROGRAM а 
EACH INSTRUCTION IS PACKED IN ONE LOCATION 
INSTRUCTIONS ARE STORED IN SUCCESIVE LOCATIONS 
IF (LOCN) 22,26,20 

20 MEMORY(MLOC) = IOP*1000 + IADDR 
MLOC = MLOC + 1 
GO TO 10 

22 WRITE(*,24) LOCN,IOP,IADDR 

24 FORMAT( 2X,14HERROR IN INPUT,3X,13,3X,12,3X,I3 ) 


аооо 


STOP 
C LOCN = 0 INDICATES END OF PROGRAM 
C EACH INSTRUCTION 18 NOW UNPACKED,DECODED AND EXECUTED 


26 INCTR = 1 
28 ТОР = MEMORY(INCTR)/1000 
IADDR = MEMORY(INCTR) - IOP*1000 
INCTR = INCTR + 1 
С COMPUTED GO TO DECODES OPERATION CODES 
GO TO (31,32,33,34,35,36,37,38,39,50,61) ТОР 
31 ТАСС = MEMORY(IADDR) 
GO TO 28 
32 ТАСС = ТАСС + MEMORY(IADDR) 
GO TO 28 
33 IACC = IACC - MEMORY(IADDR) 
GO TO 28 
34 IACC = IACC * MEMORY(IADDR) 
GO TO 28 
35 ТАСС = IACC / MEMORY(IADDR) 
GO TO 28 
36 MEMORY(IADDR) = ТАСС 
GO TO 28 
37 INCTR = IADDR 
GO TO 28 
38 IF (IACC.LT.0) INCTR = IADDR 
GO TO 28 
39 READ(*,40) MEMORY(IADDR) 
40 FORMAT( I5 ) 
GO TO 28 
50 WRITE(*,55) MEMORY(IADDR) 
55 FORMAT( 5X,I5 ) 
GO TO 28 
61 STOP 
END 


Program 13.1 А program to simulate a small computer 


172 


Observe that in the multiply instruction a product should 
not exceed 5 digits as the accumulator can store only 5 digits. 
In divide instructions only the quotient is stored. The 
remainder is ignored. If arithmetic operations with real numbers 
are needed one has to write machine language routines to do it. 


A powerful trace feature can be incorporated in the 
simulator to debug the machine language program. This consists 
of inserting the instruction 


WRITE (*,99) INCTR, IOP, IADDR, IACC 
99 FORMAT (3X,I3,3X,I2,3X,I3,3X,I6) 


just ahead of the computed GO TO instruction. This instruction 
will print out the status of the registers in the machine 
facilitating the pinpointing of an erroneous machine language 
statement. 


13.4 A Tabulation Program 


We will consider in this section a typical data processing 
problem. In this problem a table of the marks obtained by each 
student іп a class along with his average marks and division is 
required. Besides this, the average performance of the class in 
each subject is required. A program for obtaining these will be 
developed in this section. 


The following is the problem specifications: 
(i) The class has 100 or less students. 


(ii) Each student takes 6 subjects, namely, Physics, Chemistry 
Mathematics, Technical Arts, Engineering Science 


dui and 
Humanities. 


(iii) The maximum marks in each subject is 100. 


(iv) The average marks obtained by a student is rounded A 
student passes in the first division if he gets 60 or more 
marks on the average, in the second division if he gets an 
average between 50 and 59, in the third division if he 
gets between 40 and 49 and fails if his average marks is 
below 40. 


(v) The program Should compute the average marks 
student апа determine the division in which the 
passes. 


of each 
student 


(vi) It is required to find the performance of the class as 
whole in each subject. This is indicated by the 
average апа the standard deviation of the marks in 
subject. 


a 
class 
each 
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is also required to correlate the performance of the 


(vii) It 
class in different subjects. One wants to draw 
conclusions such as 'if a class does well in Mathematics 
it also does well in Physics', 'the performance of a class 
in Humanities 15 uncorrelated with its performance in 
Mathematics’. To draw such conclusions a statistical 
measure called the correlation coefficient is used. The 


program should compute the matrix of correlation 
coefficients relating the performance of students in 


various subjects. 


standard deviation, covariance and 


The class average, 
iven by the following equations: 


correlation coefficient are g 


The class average in the i-th subject is given by 


и. М 
= ( = тік) (13.1) 


where пук 15 the marks obtained by the k-th student in the i-th 


subject and N is the total number of students in the class. 


The standard deviation of the marks obtained by students in 


subject i is given by 


N ti 1 
$ (mix 7 m4)?! 2-4 


= {1 
к=1 N 


= { 


Si i 
N 


e between the marks obtained by students in subject 


The covarianc г 
i and subject 2 is defined by the equation 


N 0 t N 
< (Mik ` жүру RS > er mij - mi m4 (13.3) 


From equation 13.3 above it is seen that 


N 2 бо 
2 шік - mi (13.4) 
к=1 


=|= 


Cii 
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баң} is called the variance of the marks in subject i 


ара is the square of the standard deviation. In the computer Сіз 


will be computed and Ci; obtained as a byproduct by setting j-i. 


The flow chart for solving the problem is given in Fig.13.5. 
The method used is to read in the data for each student, 
his average marks and passing division and display it. 
of the marks in each subject is accumulated as it is 
This is done for all the six subjects and facilitates the 
determination of the class averages. The cross product of marks 
in pairs of subjects is also accumulated. A counter is set up, 
besides this, to count the number of students tabulated. 


compute 
The sum 
read in. 


After the data of all the students in the batch are read in, 
the class average in each subject, the standard deviation of 
marks in each subject, the variance-covariance matrix and the 
correlation coefficient matrix are computed and tabulated. 


A program to accomplish this is developed next. 
begins by  initialising to zero the relevant arrays. Ав the 
number of students in a batch is arbitrary (subject to a maximum 
of 100 specified earlier) the program should be independent of 
the actual number of students in a batch. To achieve this the 
Strategy adopted is to terminate the deck of student data cards 
with a specially coded card. This card will be distinct from the 
student data cards. The distinctness is achieved by typing 
the name field the symbol * which cannot be in a name. 
Student data is read it is checked to see if the first 
is * . ТЕ it is not a * the program computes the student's 
average marks etc. If it is * then the program branches to 
determine class averages. The internal machine code for ж may be 
different in different machines . Further it is not easy for 
beginner to find the internal code. To 
independence we read the symbol * 
data in the student data set. 


The program 


in 
As each 
character 


a 
achieve machine 
in A format through the first 


This is done by the statements 


READ (*,4) SENTL 
4 FORMAT (A1) 


Thus SENTL will have stored in it *. Statement 5 reads a data 
record. Statement 12 checks if it contains * in the first 
column. This is done by using the built in function ICHAR (SENTL) 
which returns an integer equal to the code of x. This is 
compared with ICHAR(A(1)) where A(1) is the first character in 
the name. If they are equal then it is the end of student records 
and control jumps to statement 85 to compute class averages. 
Else the student's grade is computed. 


The second statement following statement 15 is to round the 


Read 
Student name,marks 


Is it 
End of 
student 
records 


Count 
number of students 


Find 
average marks of 
each student 


Accumulate 
sub ject marks 
of the students 


Accumulate 
cross products 

of marks in two subjects 

at a time 


Is 
marks in 
each subject 
» TE 


verage marks 
of 9 student 


Beclare I class 


Declare III class 


jo marks 
оға student 


» 49% 
72 


Declare fai 1 


Fig. 13.5 Flow chart 
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Yes 


Compute average marks 
and standard deviation 
in each subject 


Compute 
variance and covariance 
in pairs of subjects 


Compute 
correlation coefficients 


Write 
class averages, 

correlation coefficients, 

variance and covariance matrix 


Write 
name,average marks, 
class 


for student marks program 
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average marks of the student to the nearest integer. 
Format statements 90, 100, 110 and 120 which together 
to give a neat looking output with the proper titles. 


Observe the 
are planned 


The DO loops for calculating the variance-covariance matrix 
computes only the upper triangular matrix. This is sufficient as 
the matrices are symmetric. The Format statements 125, 128, 145 
and 160 together are planned to provide the appropriate titles 
for the tables and present the table in an attractive Format. 


The Format specifications are very important in data processing 
problems and one is urged to spend some time Studying the 
specifications in this example. 


Output obtained corresponding to a sa 
below. This is mainly intended to d 
output corresponding to the Format spe 


mple input data is shown 


epict the input and. the 
Cifications. 


C *** EXAMPLE PROGRAM 13.2 STUDENT 

C *** GRADES EXAMPLE 
DIMENSION MARKS(6),ISUB(6),ICROP(6,6),ISUAV(6). 
1ICOV(6,6),COV(6,6),CORR(6,6),IDEV(6),SDEV(6) 
CHARACTER SENTL,NAME(28) 


NSTUD = O 
DO217 1,6 
2 15080) = 0 
DO 3 I = 1,6 
DO 3? J = 1,6 
З ICROP(I,J) = 0 


READ(*,4) SENTL 
4 FORMAT( A1 ) 
5 READ(*,6) ( NAME(D,I = 1,28 ),(-MARKS(I),I = 1,6 ) 
6 FORMAT( 28A1,615 ) 
INDR = 0 
DOT INI T6 
IF (MARKS(I).LT.40) INDR = 1 
IF (INDR.EQ.1) GO TO 12 
11 CONTINUE 


12 IF ( ICHAR(NAME(1)).EQ.ICHAR(SENTL) ) GO TO 85 


10 NSTUD = NSTUD + 1 
MARTL = 0 
DO 15 I = 1,6 

15 MARTL = MARTL + MARKS(I) 
MARAV = NINT(REAL(MARTL)/6.0) 


DO 26 I = 1,6 
25 ISUB(I) = ISUB(I) + MARKS(I) 

DO 35 I = 1,6 

DO 95 J = 1,6 
35 ICROP(I,J) = ICROP(I,J) + MARKS(I)*MARKS(J) 

IF (INDR.EQ.0) THEN 

IF (MARAV.GE.60) THEN 
KDIV = 1 
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ELSEIF (MARAV.GE.50) THEN 


KDIV = 2 
ELSEIF (MARAV.GE.40) THEN 
KDIV = 3 
ENDIF 


ELSE 
WRITE(*,75) ( NAME(I,I = 1,28 ),MARAV 
75 FORMAT( 10X “DID 
A 28A1,2X,19,2X, DID NOT PASS IN ALL SUBJECTS' ) 
ENDIF 
WRITE(*,82) ( NAME(I),I = 1,28 ),MARAV 

me ТЕ 28 ), KDIV 
FORMATI 10X,28A1,2X,I3,2X,'PASSED IN DIVISION', I1 ) 

85 WRITE(*,90) 

90 FORMAT( 30X,'CLASS AVERAGES' ) 

DO 95 I = 1,6 

95 ISUAV(I) = ISUB(I)/NSTUD 
WRITE(*,100) 

100 FORMAT( 21X.'PHYS',6X, CHEM', 6X, 'MATH',6X,'T.A.',6X,'E.SC' 
1.6X,'HUMS' ) P 
WRITEC,110) ( ISUAV(I),I = 1,6 ) 

110 FORMAT( 10X,'AVERAGES',16,5110 ) 


po 112 I = 1,6 


DO 112 J = 1,6 

ICOV(I,J) = ICROP(J)/NSTUD = ISUAV(I) *ISUAV(J) 
112 COV(LJ) = 1С0У01,/) 

po 116 I = 1,6 

spEV(D = SQRT( COV(LD ) 


116 ШЕУ(І) = SDEV(I) 
WRITE(*,120) ( IDEV(D,I7 1,6 ) 
120 FORMAT( 10X,'STD,DEVS', 16,5110 ) 


WRITE(*,125) 
125 FORMAT ( 21X,'THE VARIANCE COVARIANCE MATRIX’ ) 


WRITE(*,100) 
WRITE(*,128) (( ICOV(1,J),J = 1,6 )1= L6) 
128 FORMAT( 11X,'PHYS',6110/ 11X,'CHEM',10X,5110/ 11X,'MATH',20X 
1/ 1 1X, 'T.A.',30X,3110/ 11X,'E.SC',40X,2110/ 11X,'HUMS',50X,110 ware 
po L83521 s 1,6 
po 135 J: = 1,6 
= cov(nJ) 7 SQRT( COV(,,D*COV(J,J) ) 


135 СОКЕ(1,Ј) 
WRITE(*,145) 
145 FORMAT( 21X, THE CORRELATION COEFFICIENT MATRIX' ) 
WRITE(*,100) 
WRITE(*,160) С CORR(LJ)J = 5621 = 1,6 ) 
"PHYS',6F10.2/ 11X,'CHEM',10X,5F10.2/ 11X,'MATH' 


1,20Х,4Е10.2/ 1 1X,'T.A.',30X,3F 10.2/ 11X,'E.SC',40X,2F10.2/ 


911X,'HUMS ‚50Х,Е10.2 ) 
STOP 
END 


Program 13:2 Illustrating calculations of statistical parameters 
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V.RAMAMURTHY 
V.K.ADYA 
A.P.GUPTA 
R.M.CHOPRA 


AVERAGES 
STD.DEVS 


PHYS 
CHEM 
MATH 
Т.А 

Е. SC 
HUMS 


PHYS 
CHEM 
MATH 
Т.А 

E.SC 
HUMS 


1320 
the 


30 
40 
50 
60 


CLASS AVERAGES 


PHYS CHEM 
45 45 
11 11 


FAILED 


PASSED IN DIVISION3 
PASSED IN DIVISION2 
PASSED IN DIVISION1 


MATH 


45 
11 


Т.А. 
45 
11. 


THE VARIANCE COVARIANCE MATRIX 


PHYS CHEM 
125 125 
125 


MATH 
125 
125 
125 


Т.А. 
125 
125 
125 
125 


THE CORRELATION COEFFICIENT MATRIX 


PHYS CHEM 
1.00 1.00 
1.00 


Write a machine language pro 
largest of 10 numbers. 


simulator. 


13.2 


12.3 It 


the machine 
below. R 
and test it. 


Meaning: Add xxx to the contents of the accumulator 


Write a machine language 
two 10 component vectors. 


Rewrite 


OP Code 


21 


MATH 


1.00 
1.00 
1.00 


EXERCISES 


is desired to add more instruc 
instructions and the 


ir 
the SMAC simulator w 


Т.А. 


1.00 
1.00 
1.00 
1.00 


Addr 


— 


ххх 


Е. 5С 
45 
11 


E.SC 
125 
125 
125 
125 
125 


E.SC 


1.00 
1.00 
1.00 
1.00 
1.00 


program for SMAC which will 


tions to SMAC. 
meanings 
ith these 


HUMS 
45 
11 


HUMS 
125 
125 
125 
125 
125 
125 


HUMS 


1.00 
1.00 
1.00 
1.00 
1.00 
1.00 


gram for SMAC which will pick 
Test this program With the 


Some of 


given 
additions 


add 


13.5 
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OP Code Addr 


23 ххх 


Meaning: Multiply the contents of the accumulator by the 
number XXX 


OP Code Addr 
———— 
25 ххх 


Меап1па: Shift the contents of the accumulator right by 
xxx digits. 


OP Code Addr 
терс ү 2522 aS 
26 XXX 


Meaning: Shift the contents of the accumulator left Ьу 
xxx digits. 


Write а complete computer program for an automatic stamp 
vending machine. The machine is to be designed to 
dispense 20,15,10 and 5 paise stamps. The customer may 


insert coins in the denominations 50,25,10 and 5. Тһе 
machine should dispense the stamp requested and return the 
correct change. Exceptional cases like no stamp in the 
machine, insufficient amount tendered etc., should all be 
accounted for. The following constraints may be assumed. 


(i) At a time only one stamp may be requested 
(ii) More than one coin of the same denomination will 
not be returned as change. 


A manufacturer has three product lines and five types of 
customers. He has а discount procedure which varies with 
the customer and the amount of order. The complete word 
statement of his discounting policy is given below: 


Engines 
Fans 
Pumps 


1 product lines 


Retailer 

Engine Distributor 
Pump Distributor 
Fan Distributor 
Government Agency 


2. Customer class 


1f the order is from a retailer and if it is less than 
Rs .500/- allow . 5% discount. ТЕ it is from one of the 
distributors allow 7.5% on orders less than Rs.500/-. If 
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the order from а retailer is greater than or equal to 
Rs.500/- but less than Rs.2,500/- allow 7.5% discount. 
For the same order from a distributor allow 10% discount. 


For orders greater than or equal to Rs.2,500/- from a 
retailer allow 10% discount and 12.5% to a distributor. 
In all cases allow 7.5% discount to Government agencies. 
All the above rules apply only to fans or pumps. For 
engine orders regardless of the amount of purchase or the 
customer a flat 5% discount is given. 


Given a customer number, product, customer class and 
amount of order write a FORTRAN Program to print out the 
bill of a customer. 


Chapter XIV 
Additional Fortran 77 Features 


We will briefly describe in this 

b. chapter 1 

additional features available in FORTRAN 5995 acd es аа 

the ones available in IBM PCs. Some other FORTRAN 77 Ба 
E 


such as complex DATA statement etc., are excluded. 


14.1 Logical Constants, Variables and Expressions 
Besides real and integer constants, variables ana 
a new category called logical constants ie С 
and expressions is available in FORTRAN. A logical variabi. a 
take on a value .TRUE. or .FALSE.. A logical constant is E ittan 


in one of the following forms: 


expressions 


.TRUE. 
.FALSE. 


variable папе may have from 3 
first character must be a letter Zh qu 2,55% 
may Бе letters or digits. In order that the compiler ma o ore 
whether а particular variable name is ‘logical' Kon dM 
declaration is required before it is used. ТЕПЕ the CARA 182 


A `1оа1са1' 
characters, the 


LOGICAL GAME, MATE, SWITCH 


will define the variable names GAME, MATE and SWITCH 
UE or FALSE values. as logical 


је of taking only TR 


and capab 
Logical variable names and constants may be combined by 
logical operators to form logical expressions. mhê аса са. 
r meanings are tabulated on p.182. The letters a 


operators and thei Р 5 
and b stand for logical variable names. The full Stops ва 
апа following the logical operators are required punctuations. 


use of Logical variable 


Example of Use A= 
A company has three shareholders, Agarwal, Bhatia and 
Chamanlal. Agarwal owns 50 shares, Bhatia 30 shares апа 
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Operator Operation Truth Table 
.NOT. Negation or .NOT. a 
Complément X ___|-_-______|----__ 
-. FALSE. 
. TRUE. 
.AND. Intersection or .AND. b 
Boolean ANDE MEE a 
TRUE. 
FALSE 
. FALSE 
.FALSE. 
.OR. Union çr -OR. ау 
Boolean ОЕ |----_- от 2212 | 
. TRUE 
. TRUE 
- TRUE. 
FALSE 


Chamanlal 20 shares. For a measure to pass it must be supported 
by members the sum of whose holdings exceed 2/3 of the total 
shares. It is required to obtain a logical expression to depict 
the conditions under which the measure will pass. 


Let a ‘yes' vote be represented by .TRUE. апа “Мо! vote 
by .FALSE. Let the passage of the measure be indicated by .TRUE. 
and its failure by .FALSE. Then the variable MEAS i 
the measure) will be .TRUE. if Agarwal and Bhatia 
if Agarwal and Chamanlal vote for it. This may b 
the following logical statement: 


MEASURE - (AGVOTE .AND. BHVOTE) .OR. (AGVOTE AND. CHVOTE) 


where MEASURE, AGVOTE (Agarwal's vote), ВНУОТЕ (Bhatia's 
and CHVOTE  (Chamanlal's vote) are all logical variable Renee 
The same expression May also be written as 3 


MEASURE = AGVOTE .AND. (BHVOTE «ОК. CHVOTE) 


The hierarchy rules in evaluating logical expressions are: 


(i) The expression is scanned fro 


m left to ri 
operators are executed first right and all.NoT. 


(ii) The expression is rescanned and .AND. o er 
executed next. Perators are 


(iii) „ОК. operators are executed last, 
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(iv) If parentheses are 
1 present the expressi i 
innermost set of parentheses is EE 52 first DESIT 


Within parentheses the hierarchy rules are followed 


Examples: 
a. „МОТ. А .AND.B .OR. C .AND. D would evaluate (А. B) + 
(с . D) where A stands for .МОТ. А, А.В stands for 
A.AND.B and А+В for А .OR. B. 
b. ‚чот. (А .AND. Мот. с OR 
evaluate у и О 
(А.С) + (D.G) 
с. (.NOT. А .OR. B) .AND. .NOT. (C .OR. D) would 


evaluate 
(А+В) 4 (C+D) 


d. (А .AND. в .OR. C) .AND. (.МОТ. D .AND. Е .OR. G) 


would evaluate 


((A.B)4C . ((D.F) + G)) 


14.2 Relational Operators and New Hierarchy Rules 


Besides the arithmetic operators and logical operat th 
ors e 


relational operators, namely SDs 2<,.-6,. -.аһа Z 
available in FORTRAN. These are very useful in are also 
for these operators in FORTRAN were 


numbers. The symbols 
tabulated in Chapter IX. 


ed to compare two real quantities 


These operators may be us 
An integer should not be compared 


or two integer quantities. 
with a real number. 
The result of the comparison could be eith 
5 ies e 
real or integer quantities connected Dn — a вы 


s a logical variable. This logi i 
5 3 gi 
other logical variables by ани A 


Examples: 


Thus two 
operator give 
combined with 
give logical expressions. 


(i) А .GE. B 
(iij aqu ве Jho lap Legg Алом 
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(iii) (А. GT... 2.1) “OR 208. ШТ.  Q(CXD).) 
The following are illegal expressions (why?) 
(i) A ACE O 
(3) (A .GT. 2) “OR: (В SLT. | (сж1.)) 
(iii) д ег. 2 LT. OS 


When arithmetic, relational, and logical operators are all 
present in an expression the hierarchy of operators is 


(1) Arithmetic with its usual hierarchy 


(ii) Relational. А11 relational operators have the same rank 
(iii) Logical in the order, .NOT., .AND., and  .OR. 


Examples 


(i) A+B**I/C.GE.F*D**I+H.AND.I.LT.J*I+K is evaluated as 


ist pass BI pi 

2nd pass Bl/c (әрі) (J*I) 

3rd pass (A+B!/c) ((F*DT) +H) (J*I)4K 
4th pass (А+ВІ/С) > ((F*D1) +H) I < ((J*I)4K) 
5th pass ((А+ВІ/С) > ((F*D1)+H)) .AND. 


(I «((J*I)9K)) 


(ii) (A+B)/C+D .LE. F .AND. I .GE. J is evaluated as 
((((A+B)/C) + D) < F) .AND. (127) 


14.3 Data Types in FORTRAN 


We have introduced so far in this book data types INTEGER, 
REAL, CHARACTER and LOGICAL. In MS-FORTRAN an INTEGER data type 
may also be specified as INTEGER*2 or INTEGER*4. The data 
declaration  INTEGER*2 tells that the specified 
require 2 bytes (1 byte - 8 bits) of storage. Thus the magnitude 
of such an integer will be limited to + 32767. The declaration 
INTEGER*4, on the other hand, tells that a variable name of this 
type needs 4 bytes of storage. А declaration as INTEGER without 
specifying *2 or *4 is correct and is taken as INTEGER*4. 


type 
variable would 


Similarly REAL variables may be declared as: REAL or REAL*4 


or REAL*8. REAL and REAL*4 reserve 4 bytes for a variable and 
REAL*8 reserves 8 bytes (64 bits). REAL*8 may also be declared 
as DOUBLE PRECISION. If a real variable is declared as double 


precision then its mantissa length Will be doubled to 14 decimal 
digits. In certain numerical calculations DOUBLE PRECISION is 
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useful. This facility should be rarely used as it wi i 
L i 1 ill 
considerably the computing time. a и“ 


14.4 FORMAT Declaration 


Besides A,E,F,H,I and x format specification, a 
specificaticn for logical' and double precision is available in 
FORTRAN 77. These specifications are very similar to format 


specifications discussed earlier. For example: 


LOGICAL X,Y 
READ (*,25) X,Y 
25 FORMAT (L6, X, L7) 


should have a data of the type: 


.TRUE. .FALSE. 


In general specification Lw abstracts w characters from the 


input data and assigns it to a logical variable. 


Double precision numbers may be written using D 
specification. For example: 


DOUBLE PRECISION Z ,Y 
WRITE (*,25) Z,Y 
25 FORMAT (1X,2D 24.16) 


will output data with 16 digit mantissa and 2 digit exponent. 


14.5 Mixed Mode Expressions 


In Chapter 5 on arithmetic expressions we stated that all 
in an expression must be of the same type. In other 


quantities 

words we stated that all variables and constants in a real 
expression must be real and those in ап integer expression 
integers. It is advisable for all beginners to follow this rule 
to avoid unforeseen problems. FORTRAN, however, does allow so 
called mixed mode expressions. In other words an expression may 


hich we may have both integer and real quantities. 


be written in W 
is useful as very often one may write expressions 


This facility 
such as: 


2*A + 3*B*B 
where 2 and 3 even though integers are meaningful if taken аз 


reals. FORTRAN 77 thus allows mixing modes. One should, 
be careful in writing mixed mode expressions and 


however, У Е 
remember the rule followed in evaluation. The rule is based on a 
ranking of numerical variable types. The rank from highest to 


lowest rank is: 
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Highest REAL*8 or DOUBLE PRECISION 
rank REAL*4 or REAL 
INTEGER*4 or INTEGER 
Lowest INTEGER*2 
rank 


A mixed mode arithmetic expression will be of a type 
to the highest rank variable in the expression. 
expression 2*A + 3*B*B, the constants 2 and 3 
integers will be converted to REAL and used in 
expression. 


equal 
Thus in the 
even though 
evaluating the 


There is an exception to this general rule which 1 
frequently the cause of errors. The exception is related to 
integer sub-expressions in a larger real expression. The integer 
sub-expression 15 evaluated using integer arithmetic. For 


example, the expression (I/J)*A*B**2 + (2/3)*C will be evaluated 
as: 


А + B**2 
(if тз=Чв6їапа 27-74) 
This is different from the expression: 


1.5*A + B**2 + (2.0/3.0)*C 


if all integers are converted to real before evaluation of the 
expression. 


14.6 The DATA Statement 


Fortran allows the facility of initialising the values 
variable names by means of a statement called the D 

The statement is a non-executable statement given at the 
beginning of а program after specification statements such as 
INTEGER, REAL, etc. The values of the s 


INTEGER, pecified variables 
initialised at compile time. The statement: ЖҚА 


of 
ATA statement. 


DATA A,B,I,K/2.5,4.8,4,6/ 


gives an initial value of 2.5 to A, 4.8 to B, 4 to I and 6 to K 


Besides integers and reals, one may also initialise values for 
logical, апа double precision variables. Thus the followi 
statements: 3 


LOGICAL VOTE 
DOUBLE PRECISION X 
DATA VOTE,B,X/.TRUE., 2.5, 3.8542D2/ 


would assign .TRUE. to VOTE,2.5 to B and 3.8542*102 to x. 


The DATA statement may also be used to read character 
information into variable names declared as CHARACTER. 


Thus the statement 


CHARACTER *5 NAME 
DATA МАМЕ/ RETUR'/ 


will store RETUR in NAME. 


The values of all the elements in an 

The . " С аггау ог 1 

initialized with a DATA statement in a sane way Sk ifi Е. 
E eros 


are to be put in the array MAX(10), one may use the statement 


DIMENSION MAX(10) 

DATA MAX/10*0/ 
In general if the notation k*d is used in a DAT - 
means that the quantity d is repeated k times. Ag sca temen 


‘1's are to be stored in matrix A(10.5) апа ‘O's in 


BE 
y use the statements: 


matrix B(5,10) one ma 


DIMENSION A(10,5),B(5,10) 
DATA A/50*1/,B/50*0/ 


The DATA statement may also be written as 


DATA A,B/50*1.,50*0/ 


The two forms have the same effect. 
The following statement 


DIMENSION A(25) 


DATA A,B, с/20%4., 4%2., 3*1./ 


is equivalent (as far as the storing of values are c 
o 
the statements: ncerned) to 


DIMENSION A(25) 
po 25 I = 1,20 
25 А(Г) 


30 A(I) = 2.0 


The DATA statement, as seen above, is very useful in initialising 
As it is not an executable statement it 


variables in a program. 
should not be used for repeatedly initialising values of 
variables (such as inside DO loops) · 


cannot be used to assign values to arguments in 
tatement. They are primarily used to 
s in the program. 


Data statement 
SUBROUTINES and COMMON sté 
assign values to local variable 
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14.7 IMPLICIT declaration 


Many Fortran processors provide an IMPLICIT declaration 
which permits a programmer to designate all variables having 
specified initial letters as being of a particular type. For 
example, we may write: 


IMPLICIT LOGICAL (C,P- 5), 


DOUBLE PRECISION (D,B,L), 
REAL (M,N) 


which would mean that all variable names in the program starting 
with the first letter C,P,Q,R,S will be treated as LOGICAL, all 
the variable names starting with D,B or 


L will be assumed to be 
DOUBLE PRECISION and those starting with M or N as REAL. 


If in a program all computations are to be in integer 
(as in Example Program 13.1) one may write: 


mode 
IMPLICIT INTEGER (A -2). 


14.8 Execution time Format declaration 


A Fortran 77 program may be made quite general by 
initialising only local parameters inside the program and reading 
the general parameters with Input 


r 1 ( n statements. Aids towards 
generalisation and modularisation are provided by subroutines 
function subprograms and similar facilities. А 


i tie Subroutines in turn 
may be made general using the facility of execution time 


dimensioning of arrays. The only apparent constraint is the I/O 


format declarations which are specified internally in the 
program. 


„То relax this constraint Fortran 77 Provides a means of 
reading in the Format declaration at execution time. This allows 
a program to be used with data originating from different places 
in varying Formats. It aiso allows results to be written in 
different formats. Example Program 14.1 illustrates this. 
C *** EXAMPLE PROGRAM 14.1 
C *** ILLUSTRATING OBJECT TIME FORMATTING 

CHARACTER * 50 FORM1,FORM2 

READ(*,*) A,B,C 

READ(*,10) FORMI 

10 FORMAT( A50 ) 
WRITE(*,FORM1) A,B,C 
READ(*,20) FORM2 

20 FORMAT( A50 ) 

WRITE(*,FORM2) A,B,C 

STOP 

END 


Program 14.1 Illustrating object time formatting 
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Observe that the actual character string corr i 

FORM1 and FORM2 are read during е Есе PLI HER. SHEER Ii. 
READ(*,10), FORM1 and READ(*,20) FORM2. Тһе data s s ss 
to the read statement READ(*,10) FORM1 would be used t p 5 
the format to be used by the statement: саве 


WRITE(*,FORM1) А,В,С 


The data for the statement READ (*,10) ЕОЕМЈ 15 (1X, ` 
š = Е , 1 X,' VAL 
A,B,C', 3F10.4). This will be the Format used by the үз - 


statement. In other words the WRITE statement is equivalent to 


the statement 


WRITE(*,40) A,B,C 
40 FORMAT (1X, VALUES OF А,В,С", 3F10.4) 


Format code including the left and right 
parentheses is read as data in A-format and stored in FORM 
When FORM1 appears in a WRITE statement (instead of a Навет 
number defining the Format code) then the format read into FORM1 


is treated as the Format code. 


The entire 


14.9 The EQUIVALENCE declaration 


When a variable name is used in a computer program the 
processor allocates the necessary space in the computer's memory 
for storing its value. Big programs tend to have a large numbe 
of variable names and it often becomes difficult to a ctonodaté 
the program due to the finite memory space available in а 


computer. 

то aid tin? minimising memory’ space requirements F 
provides a statement called the EQUIVALENCE statement reese 
enables the programmer to use the same locations in memor id 
more than one variable at different times during the escasa E 


a program. 
programmer is careful he can divide the program into 


If ра 
segments such that the same variable names are not used in more 
one segment of the program. Having done this he can give 


than 
the compile 
reserves the same 


neral form of the EQUIVALENCE statement is: 


r this information by an EQUIVALENCE statement which 
locations in memory for more than one variable 


The ge 


EQUIVALENCE (а/Бу/с,---),. (doerfo- 49) 


ићеке a,b,c,d,e,f are all variable names. The following form is 


also valid: 


EQUIVALENCE (а(к),Ь,а(3),--.), (d, e(m,k),£,...) 
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where k,j,m are integer constants. 


Examples 


The following are valid equivalence Statements: 


EQUIVALENCE (A,B,C) 
EQUIVALENCE (A(1),B,C(2), D,E(2),F), (K,I,M) 
EQUIVALENCE (C(1),B(5),D(8)) 


The following are invalid: 


EQUIVALENCE (A(I),B) (variable as subscri 


pt not allowed) 
EQUIVALENCE (A,B,C) (D,E,F) (Comma missin 


g) 


The statement EQUIVALENCE (A,B,C) would 
memory locations to the variables A, B, and C 
numbers cannot occupy the same location at the sa 
the programmer's responsibility to ensure that th 
variables (if they are used for different Purposes) would not be 
simultaneously required at any time during the execution of the 
program. The Equivalence specification may, however, be used to 
advantage in some programs by giving two different names to the 
same variable. For example, іп a large program if by mistake 


parts to store the 
Same quantity then they can be made Synonymous by using an 
EQUIVALENCE statement. If C is a one dimensionai array then 
EQUIVALENCE (C(2),A) would assign the same location to the second 
element of C and to the variable A. 


assign identical 
Inasmuch as two 
me time it is 


Observe that, in general, integer and real Variable names 
cannot be made equivalent. This is due to 


the fact that in most 
Machines they occupy unequal number of locations in memory. It 


is also not advisable to equivalence CHARACTER variables with 
integers or reals, as CHARACTER variables may be of odd lengths. 
Two variables declared CHARACTER may be equivalence. 


By equivalencing, the same variable name cannot be made to 
occupy two different locations. For example, EQUIVALENCE 
(A,B(1)), (A,B(6)) woula try to force A 


! } to be B(1) ana B(6) which 
are distinct as B is an array. 


An  EQUIVALENCE Statement cannot 


force consecutive array 
elements not to be consecutive, 


For example: 


REAL R(10), B(10) 
EQUIVALENCE (R(1), в(6)), (R(2), B(8)) 


will force R(1) and R(2) out of order Which is not possible. 


The EQUIVALENCE statement reserves t 


ves the same memory locations 
for all the variables EQUIVALENCED within 


the same program. The 


1971. 


COMMON statement on the other hand im 

, к hand, impli responden 
between the memory locations for variables ҚОЛА E с x ven 
subprograms. 2m Б P. ез 


The restrictions in using COMM 
H H S 
н 222” а М and EQUIVALENCE statements 


(i) No two elements in COMMON may b uivale 
еже 
š y q nced to each other. 


COMMON A,B 
EQUIVALENCE (A,B) 


or 


COMMON A,B 
EQUIVALENCE(A,C), (B,D), (D,C) 


are both illegal. 


is illegal as COMMON asks the process 

а or to 
locations to A and B whereas ROUIVALENSE м: 
This contradiction is not allowed 4 


This 
consecutive 
locations A and B are same. 
(ii) Equivalencing may not affect the beginning of 

Equivalence may extend the common area Sd p а area. 

the statements S. Thus 


COMMON A,B 
DIMENSION C(4) 
EQUIVALENCE (A,C(2)) 


will require memory allocation as shown and are illegal 
al. 


| upward extension of common area 


NETTE 
| А | C(2) | --> equivalenced variables 
l. Balm C(3 


| са) 


Соттоп Аггау 
агеа с 


that B and Со) will be utens tieu 
The following statements are however Жала. 
s will allocate memory as shown below: š 


Observe 
equivalenced. 
These statement 
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COMMON A,B 
DIMENSION C(4) 
EQUIVALENCE (B,C(1)) 


(iii) The order in which memory locations are 
COMMON statement is not affected by the 
statement. For example: 


IAM] 
Шен теат 25 Equivalenced variables 
Common + C:(2) 1 Downward extension of 
area 2------: common area alloweg 
t C(3) } 
1 ea) | 
Array C 


reserved by the 
EQUIVALENCE 


COMMON А,В,С 
EQUIVALENCE (B,E,D) 


will reserve memory as shown below: 


(iv) 


FSA G 

| ile! = ms | ET Dp- (ЕЗУ Equivalenceg 
-----:-----:-----: (вапе location) 
TEP 

Common 

storage 


Equivalencing a dimensioned variable to an elemen 
array in a main Program does not disturb the 
of locations in common area. For 
statements: 


t of an 
allocation 
example the 


Main Program 
DIMENSION A(3),D(3) 


COMMON A,B,C 
EQUIVALENCE (B,D(1)) 


Subprogram 


DIMENSION P(3) 
COMMON P,Q,R 
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-Will allocate memory as shown below: 


| А() | PO) | 
| A) | P(2) | 
АСЗ) | Bla) | 
Жык C жо | B,Q,D(1) all in same location 
Г с 1 D(2) I C,R,D(2) all in same location 
“Common area | D) | 

"Array DO 


From the above discussions it is clear that the use of 
EQUIVALENCE and COMMON statements need certain amount of 
practice. The detailed allocation of storage depends on 
the processor. Thus it is advisable to consult the 


system staff when in doubt. 


14.10 Conclusions 


In this book we have discussed in detail the Fortran 77 
language for computer programming. At present this is the most 
popular procedure oriented higher level language for scientific 
and engineering computation. Fortran, however, has a number of 
shortcomings. The main drawbacks are the inability of the 
language to conveniently process symbol strings and the 
inflexibility of storage structure. PASCAL language is gainin 
popularity due to the availability of good control and Pes 


structures. 


Besides Fortran, а number of other procedure ori 
EE x 
have been developed for specific purposes. Мизил а 


languages 
more popular ones are COBOL, SNOBOL and LISP. COBOL is an 
abbreviation of Common Business Oriented Language. Tts шала 
merit is the powerful and flexible data structure available in 


which is very useful in applications like file 


the language Aires T 
other respects it is quite similar to Fortran 


maintenance. In 

but verbose. SNOBOL has features for flexible symbol 

manipulation. Character strings may be used as data and 

manipulated easily in this language. LISP is specially designed 
tructures called lists. Such 11565 occur 


to operate on data 5 
often in programs relating to theorem proving and artificial 
intelligence. 

of computer programmers have been using 
] its shortcomings it is still an effective 
Fortran compilers are available 


A generation 
Fortran. Granting al 
language. It is easy to learn: 
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for almost all general purpose 
Compilers are normally very 
continuously improved. 
FORTRAN for scientific and 
felt that for quite some ti 
language. 


computers. Further,  FORTRAN 
efficient and  FORTRAN is being 
Many library Programs are available in 

engineering computations. It is thus 
me to come FORTRAN will remain a live 


EXERCISES 


14.1 Write a program using logical variables to implement the 
decision table of Example 2.7 of Chapter II, 
14.2 А school admits students if 


they are 5 years of age on 
specified date. Write a prog 


a 
ram to implement this rule. 


14.3 The sine, cosine and exponential functions are defined as 


follows: 
x2 x3 
xem = = 
e? = 1 + х + 21 * 31 44 
x * х5 = x 5 
Sin x =x - v 51 71 250 


Write а program to compute the above functions in double 
precision. Find how many terms are required to compute 
all these for x =0.2 such that the built in double 
Precision function and the series agree, 


14.4 Write a program which reads in two com 


р1ех numbers X and z 
end finds the following: 
(à) x? + 22 
(ii) 1х1/121 


14.5 Write an execution time format declaration for the 
following statements 
READ 4,А,В,Ј 
4 FORMAT (5Х,Е15.8,Е8.3,16) 


| 


14.6 
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Write DATA statements corresponding to the followi 
ing 


assignments of values to variables: 


(i) І = 2,A = 10.85,B = .584 E 15,N = „ТВОЕ 
(ii) ро 25 I = 1,10 

A(I) = 2.0 

M(I) = 0 

25 CONTINUE 

X = 10.8 

1=5 
(i) Three arrays А(4,5), B(30) and C(5,4) 


equivalenced by the following statement: 


EQUIVALENCE (A(15), B(10), C(5)) 


Which components of A,B and C oc 
locations? қ GHP the 


(ii) From 


(similar to the ones in the text) showing 


correspondence of variables in memory: 


Main Program 
DIMENSION A(10), B(2,5) 


COMMON A,P 
EQUIVALENCE P,B(4) 


Subprogram 


DIMENSION X(10) 
COMMON X,Y 


(iii) Are the following assignments of COMMON 


EQUIVALENCE valid? ` 

Main Program 

DIMENSION X(5),Y(5),Z(10),D(5) 
COMMON Y,A,B 

EQUIVALENCE (Y(2), (X3)) 


Subprogram 


DIMENSION P(5) 
COMMON P,Q,R 


are 


same 


the following statements draw a diagram 


the 


and 


Appendix 
Built-in Functions in Fortran 77 


Type of Type of 


Function Name argument function 


Remarks 
Type conversion 
Convert to integer  INT(X) Real Integer Int (8.5) = 8 
IFIX(X) Real Integer Int (-8.5) = -g 
IDINT(X) D.P Integer INT(X) & IFIX 
are identical 
Convert to real REAL(I) Integer Real REAL(I) and 
FLOAT (I) Integer Real FLOAT(I) are 
identical 
Convert to D.P. DBLE(X) Real D.P. 
Convert to S.P. SNGL (X) О.Р. Кеа1 
Convert to integer  ICHAR(C) Character Integer Character con- 
verted to 
internal ASCII 
representation 
Convert to charac-  CHAR(I) Integer Character €.g.ICHAR(A)-65 
ter CHAR(65)-A 
Truncation 
Truncate to real AINT(X) Real Real AINT(8.5)-8 
Truncate to D.P. DINT(X) D.P. D.P. DINT(9.657)-9 
unding 
кон to real ANINT (X) Real Real АМІМТ(8.6)-9.0 
Round to D.P. DNINT(X) D.P. DP. DNINT(-9.4)--9.0 
Round to Integer NINT(X) Real Integer NINT(8.6)-9 
Round to Integer IDNINT(X) D.P. Integer ТОМТМТ (-7.5)=-8 
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j Type of Type of 
Function Name argument function Remarks 


2 „Шш шыш о _  _—_ 


Absolute value 


Integer absolute IABS(J) Integer Integer IABS(-5)-5 

value 

Real absolute ABS(X) Real Real АВ5(-8.5)-8.5 

value 

p.P. absolute DABS (X) D.P. DERE DABS (-9.5D16)= 

value 9.5D16 

Remaindering ^ 

Integer remainder MOD(I,J) Integer Integer МОр(11,5)-1 

Real remainder AMOD(X,Y) Real Real AMOD(11.6, 6.5)- 
5.1 

D.P. remainder DMOD(X,Y) Р.Р. D.P. DMOD(12.6, 3.5)- 
2.1 

Transfer of 

sign 

Transfer sign of IsIGN(I,J) Integer Integer ІЅІСМ(6,-8)= -6 

second argument SIGN(X,Y) Кезі Real SIGN(-5,8)= -5 

to the first DSIGN(X,Y) D-P- D.P DSIGN(-6,-8)- -6 

argument -- (ee oa er en 

Positive 

Difference 

Кес ; Integer ID =. 
tive Diff. IDIM(I,J) Integer IM(8,6)= 2 

p = х-у DIM(X, Y) Real Integer DIM(-6.2,-8.5) 

if x > У А БОР 28r 

o if x < Y ppiM(x,Y)  D.F- suec DDIM(6.75, 8.94) 
= 0 


Largest value 


ximum AXO (LAIAR VERSES Integer МАХ0(2,5,8,3,1)-8 


Integer ma 


Real 
i мъх 2225. АМАХ1(5.8,8.5,3.2) 
Real maximum = ЛЕ 
Real maximum AMAXO (I , di; Ki ..)Integer Real АМАХ0(2,-4,6, 33-6 
Integer maximum ЕСТІ 145 Integer МАХ1(2.5,6,5,3,2)=6 
OMAKI (ХУ „Л. cs DES D.P. DMAX1(6.8,1,8,3,2) 
= 6.8 
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Type of Type of 


Function Name 


argument 


function 


Remarks 


Smallest Value 


Integer minimum MINO(I,J,K... 


Integer Integer MINO(5,4,3,6,7) = 3 
Real minimum AMIN1(X,Y,2...) Real Real AMIN1(-6.2,7,2.6) 
= 6.2 
Real minimum AMINO(I,J,K...) Integer Real AMINO(4,-5,6)= -5.0 
Integer minimum MINI(X.Y,Z...) Real Real MIN1(2,1.9,3,3) = 1 
D.P. minimum DMINT(X Y2...) DEP. D.P. DMIN1(3.2,-6.8,3.1) 
TURA Pari. Е... | 
Double Pre- 
cision Product _ DPROD(X,Y) Real D.P DPROD(X,Y)-X*y 
Square root SQRT (X) Real Real X»0 
DSQRT (X) D.P. D.P X» 0 
Exponential EXP (X) Real Real 
DEXP (X) D.P. D.P 
Natural ALOG (X) Real Real log, X X> 0 
ogarithm 
DLOG (X) D.P. D.P 
Common ALOG10 (X) Real Real 1 
logarithm 9810Х 24449 
DLOG10 (X) Э.Р. р.р 
Sine SIN(X) Real Real Sin(x) x на, 
DSIN(X) D.P D.P. 
Codina COS (X) Real Real Cos (х) x in radians 
DCOS (X) D.P. D.P 
Tangent TAN (X) Real Real tan(x) x in radians 
DTAN (X) Быр. О.Р 
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en т —— 
Type of Type of 


Function Name argument function Remarks 
Arc Sine ASIN (X) Real Real ПСЕ 
DASIN(X) БУРЕ D.P. 
Arc Cosine ACOS (X) Real Real Ix! < 1 
DACOS (X) DEBS DARS 
2 tangent ATAN (X) Real Real 
DATAN(X) ОР). О.Р. 
АТАМ2 (X,Y) Кеа1 Кеа1 arctan (x/y) 
DATAN2 (X, Y) О.Р. DIP 
Hyperbolic Sine SINH(X) Real Real Sinh(x) 
DSINH(X) D.P. D.P. 
"-— Ы COSH (X) Real Real Cosh (x) 
Е DCOSH (X) D.P.- D.P. 
Е TANH (X) Real Real tanh (x) 
tangani DTANH (X) D" D.P. 
RE QE en, Char logical Ec 
11 LGE(C1,C2) Z,B) = .TRUE. 
Benito ? ав 7 occurs after В 
mu. - in English alphabet 
а > LGT(C1,C2) GEE logical LGT(A,B) = .FALSE. 
EA азы LLE(C1,C2) Char logical LLE(B,B) = .TRUE. 
No, PE 7 LLT(C1,C2) Char logical LLT(B,Y) = „ТВОЕ. 
[| Lexically < LLT(BA,BX) = .TRUE. 
sir 1i EN OF (J) Integer logical J unit number of 
End of ss 3 file. EOF(J) -.TRUE. 


if end of file 
reached in unit J. 
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Solutions to Selected Exercises 


CHAPTER II 
2.1 ах + by = c еа (1) 
ах. + Жупа Ри“ 57 јен № Wr. QT (2) 
Assume a # 0 
Multiply (1) by d and subtract from (2) 
a 
Eee ap јер => ке 
ра,” са 
x(d-d) ғу (ЕЕ ge 
cd bd 
e ( =й ӘЛІ RENT. (3) 


Substitute (3) in (1) x (c= by)/a 
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Fig. 52.1 Flow Chart for Exercise 2.1 


Trace of Flow Chart 


Action carried out 


in Instruction BI aiwti Ж. ertak = Input 

Flow Including names of memory data 

Chart boxes and their contents 

Sn A DL N a z 
1 START А11 units made ready 2,8,5,7,9,11 

qr E Я ЛЕЛ SESCGKI<uoa a wapu; a kuu kusa 
2 READ a,b,c,d,f,g Five numbers read from input 


and stored in memory boxes 
labelled as shown below: 


Replace contents of 


bd 
box f by (f- =) 


bd _ 327 _ 10.5 
a 


Replace contents of 


са, 
рох g by (0-2 


eet 1755‏ ی 


Step Action carried out 
in Instruction Input 
Flow Including names of memory data 
Chart boxes and their contents 
4 Find g/f and store i y i 
in memory box i i 
y ПЕД 388 
1 1 
t ' 
Find (c-by) and (P АЦЕ 
a i І 
pe і 


store in memory box 
x,(c-by) = -4) 
a 


ол i a —  —————A чы 
5 WRITE x, y 


Output contents of 
box x and y 


6 Stop all units 


oote L A a s _ 
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$2.2 Flow Chart for 
Exercise 2.2 


Read 
X1,X2,X3 


Write 
"Collinear" 


Write 
"Noncollinear" 


Flow Chart for 


Fig. $2.3 
Exercise 2.4 
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2.5 Comments:SNO = 0 is assumed to s 


ignal last quotation. їп the 
first reading of all quotations, 


found and stored in LOW. otations are read again 
to find all quotations which are lowest and the count is 
stored in LQ. 


Read 
SNO,QUOTE 


1 1 
(1 Rule 1 | Rule 2 Rule 3 
Lge rea ји=--=== = | 
Аде < 35 it Y | Y l Y | Е 
Health excellent ii Y | Y ! N ! L 
Lives in city tt Y i Y | N ! 5 
Ма1е 11 ү | N ! = ! E 
======================= | | ==========|========])======== |======= 
Max. Policy ІІ 200000 .} 150000 | 10000 | = 
Premium/Thousand tt 2 | 1 J511 3 ! = 
Do not Insure 11 = | - | = | x 
tt | ! ! 
iniu ORT RR 


мах. POLICY = 8 
PREMIUM: NIL 


MAX. POLICY 
Rs. 18,008 
Yes 
MRX. POLICY 
Rs. 1,502,000 
PREMIUM 
PREMIUM Rs. 3.007100 
Rs. 1.5871800 


PREMIUM 
Rs. 2.001000 


Flow Chart for Exercise 2.7 


Fig. 52.5 
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CHAPTER III 


3.2 Arithmetic Logic Unit performs arithmetic operations such as 
add, subtract, multiply, divide and logic operations such as to 
see if two numbers are equal. Control unit, on the other 
hand, is a coordinating unit. It interprets instructions in a 
program and based on it allocates work to ALU and other units 
and monitors their functions. 

38 See points 3 and 4 of summary. 

3.4 Requires programmer to know the machine's internal structure in 
detail. Programs not easily understood. Cannot run in 
different models of computer. 

35 High level language - language which  eases expression of 
algorithms without regard to the machine on which the program 
will be executed. 

3.8 To translate a high level language to machine language. 

3.9 NO 

S13 Syntax errors are easy to detect. Normally done by compiler 

S15 Interpretation of meanings of natural langua А 

° ge sen 
dependent on context and is not always unique. тш. 1s 

CHAPTER IV 

4.1 Calculates k - (i—j)2 and 1 - i? - 32 апа Prints them. 

4.2 Checks if k2 = i? 4 32 If, yes, writes that i. Е 

: d i d SM s 1,3 are s 
right angled triangle. Otherwise it writes that dj Ref 
sides of a right angled triangle. 

4.3 Reads а number k, finds out whether k is negative, zero or 
positive and writes an appropriate message. 

4.4 Solves two simultaneous linear equations, Impleme 
chart of Exercise 2.1 (Ch.II). i: nts flow 

4.5 Implements flow chart of Exercise 2.2 


4.6 Trace given below: 
SUM TERM COEFF x 
1 1 0 
1-2х2 -х2 2 ч 
1-2х2+4х4 x4 
4 
1-2х2+4х4-6х6 -x6 
6 
+x8 8 


1-2х2+4х4-6х6 


TESK = 


SUM = 


СНАРТЕК У 


SRI 


0.8 
1 - 1.28 + 1.638 1.572 + 1.342 = 1.128 


correct. 
incorrect. Two signs 
incorrect. Comma not al T 
incorrect. / not БІ Сәнтеене 
111еда1. - not allowed in она Part 
incorrect. Comma not allowed 
correct. 

wrong. + not allowed 
correct. 

+ wrong. 

X wrong. 

E 2.5 wrong. 

correct. 

/ wrong. 

wrong. No decimal point 
incorrect. Starts with D 
incorrect. Full stop 
incorrect. 7 

incorrect. (Starts with N) 

- not allowed 

Full stoP not allowed 
incorrect. Starts with L 
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5.5 (ii) 
(iii) 


CHAPTER VI 


6.1 (1) 
(ii) 

(iii) 

(iv) 

(v) 

(vi) 


6.2 (i) 


(ii) 


(iv) 


Comma after INTEGER not allowed 
Full stop wrong 


(АХХ+В)/ (A*X-B) 

A*X*X*2.0*B*X4C 

AM*V*V/ (X*X+AK*AR) 

2.0*X* (4.0+X*X(8.0+X* (10.0+x) )) 

A*B+C/D+E*F/ (G*H) +D**3/ (X*X-yxy) 
(71) **I*X**I/INT (SORT (FLOAT (I) ) ) 


І = 2*2/3+5/4+6-2**3/8 
= 1 1 HOS 7) 
Т = 3.0/2.0+3.0*4.0/1.5-3.0+1.5**3 
= 1.5+8.0-3.0+3.375 
= 9.875 
I = 9 
I = 3/2*4+3/8+3**3 
= 4+0+27=31 
Т = 2+2/2-2 
= 2+1-2=1 
I = (2+2)/2-2 = 2-2 = 0 
1 = 2+2%3/2 
= 2+6/2 = 5 
M = 5354/1000*1000 - 5354 
= 5000-5354 = -354 
NS GB 86 = 171 


2.5*ALOG10(X*COS ( (32.0/180. 0 
+ABS (X*X-Y*Y) +SORT (2. бану) 371416) 


SIN (КУ /СОВ GO ОСОБИ Ep двд (а. 


EXP (= (XAM) **2/(2.0*SIGMA) ) / 
SORT (2.0*3.1416*SIGMA) 


0.0095* ALOG10(4.0*ALPHA**2/BEmA) 
* 0.004*SIN (ALPHA*SQRT(B)) 


CHAPTER VIII 


aaa 


EXERCISE 8.1 
READ(*,*)A,B,C,D,E,F 

GIRE AT ВУС У 0) БЕЗЕ 
G2=A/(B*D)-F 
WRITE(*,*)G1,G2 

STOP 

END 


EXERCISE 8.2 

CALCULATION OF INTEREST PART I 

OBSERVE USE OF VARIABLES FOR CHANGEABLE DATA 
REAL INTEREST 

READ(*,")DEPOSIT, YEARS, INTEREST, TIMESPERYR 
BALANCE = DEPOSIT * ( 1.0 + INTEREST/100 * YEARS) 
WRITE(*,*)'BALANCE CASE I =',BALANCE 

PART II 

READ(*,")DEPOSIT,YEARS,INTEREST 

BALANCE - DEPOSIT " (1.0 + INTEREST / 100.0 ) ** YEARS 
WRITE(*,*)'BALANCE CASE 2 = BALANCE 

PART Ш 

READ(*,* )DEPOSIT, YEARS, INTEREST 

BALANCE = DEPOSIT * (1.0 + INTEREST /(100 * TIMESPERYR )) 
BALANCE = BALANCE ** (YEARS * TIMESPERYR) 
WRITE(*,*)'BALANCE CASE Ш =',BALANCE 

STOP 

END 

EXERCISE 8.3 

READ(*,*) FAHRENHEIT 

CELSIUS = (FAHRENHEIT - 32.0)/1.8 

WRITE(*,*) CELSIUS, FAHRENHEIT 

STOP 

END 


KGMS = POUNDS / 2.2 

WRITE(’,*)'POUNDS =" POUNDS,'KGMS='",.KGMS 

STOP 

END 

EXERCISE 8.5 

CONVERSION IS READ AS INPUT AS IT MAY CHANGE 
READ(*,*)POUNDS,PENCE, CONVERSION 

POUNDS POUNDS + PENCE / 100.0 

RUPEES POUNDS * CONVERSION 
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с FOLLOWING STATEMENT CONVERTS RUPEES TO NEAREST PAISA 
NEARPAISA = NINT(RUPEES * 100.0) 
IRUPEES = NEARPAISA / 100 . 

IPAISA = MOD(NEARPAISA ,100) 
WRITE(*,*)'RS=',IRUPEES, 'PAISA="' IPAISA 
STOP 

END 

с EXERCISE 8.6 
REAL M,NUMERATOR 
READ(*,*)X,M,SIGMA,PI 
DENOM = SQRT(2.0 * PI * SIGMA) 
NUMERATOR = EXP(-(X - М) ** 2)/ SIGMA 
EXPRN = NUMERATOR / DENOM 
WRITE(*,*)X,EXPRN 
STOP 
END 


CHAPTER IX 


с EXERCISE 9.1 

с М IS THE NUMBER OF DATA 
INTEGER X 
READ(*,*)N 
1-70 

5 READ(*,*)X 


IF ( X .LT. 0) THEN 
WRITE(*,*)X 
ENDIF 
i = ales | 
IF (I 1Т. М) GO TO 5 
STOP 
END 


[^ EXERCISE 9.2 
READ(*,*)M,N 
IF (M .LT. N) THEN 
с M AND М ARE INTERCHANGED 
peg BY THE FOLLOWING STATEMENT 
M=N 
М-і 
ENDIF 
10 К = MOD(M,N) 
IF ( К .EQ. 0) THEN 
WRITE(*,*)'GCD z'N 


10 
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EXERCISE 9.3 

READ(*,*)X1,X2,X3,Y1,Y2, Y3,EPS 

EPS ERROR ALLOWED = 0.0005 

SLOPE1 = (X1 - Х2)/(Ү1 - Y2) 

SLOPE2 = (X1 = Х3)/(ҮІ - ҮЗ) 

IF (ABS(SLOPE1 - SLOPE2) .LE. EPS) THEN 
WRITE(*,*)'LINES COLLINEAR' 


ELSE 

WRITE(?,*)'LINES NOT COLLINEAR' 
ENDIF 
STOP 
END 
Note Due to rounding errors in calculating SLOPE 1 
SLOPE 2 equality cannot be guaranteed. Thus if they азе 
nearly equal within the allowed tolerance we say the lines 
are collinear. EPS is the tolerance and may be read as 


data. Normally EPS - 0.0005 will give answer correct to 4 
significant digits. 


EXERCISE 9.4 с READ INPUT DATA AGAIN 
INTEGER SNO INTEGER SNO 

REAL LOW REAL LOW 
READ(*,*)SNO,QUOTE Laie 0 


LOW = QUOTE 


READ(*,")SNO,QUOTE 20  READ(*;*)SNO,QUOTE 


IF (SNO .EQ. 0) GO TO 10 IF (SNO .EQ. 0) GO TO 30 
IF ( QUOTE .LT. LOW) THEN IF (QUOTE .EQ. LOW 
LOW = QUOTE LQ = LQ + 1 к 

ENDIF 

А WRITE (*,*)SNO,QUOTE 

WRITE(*,)'MIN QUOTE-',LOW ENDI 

STOP GO TO 20 

END 30 WRITE(*,*)'NO OF LOW 

; UOTES -' 

STOP a 
END 


EXERCISE 9.5 
REAL INTEREST,MACHINEBAL,NETMACHBAL,INVESTMENT 


INTEGER YEAR 
READC, *JINVESTMENT,EARNING,SALV AGEVAL,INTEREST 


BANKBAL = INVESTMENT 
MACHINEBAL = 0 
YEAR = 1 


10 


10 


MACHINEBAL = EARNING + MACHINEBAL * (1.0 + INTEREST /100.0) 
NETMACHBAL = SALVAGEVAL + MACHINEBAL - INVESTMENT 
BANKBAL = BANKBAL * (1.0 + INTEREST /100.0) 
IF (NETMACHBAL .GE. BANKBAL) THEN 
WRITE(*,*)'NO. OF YEARS MACHINE SHOULD WORK-',YEAR 
WRITE(*,*)'TOTAL EARNINGS =',NETMACHBAL 
STOP 
ELSE 
YEAR = YEAR + 1 
GO TO 10 
ENDIF 
STOP 
END 


Method used is to calculate the net balance in the account 
for each alternative every year. When the balance in the 
account when the machine was bought exceeds investment 
balance the number of years is printed. 


Data 6000.0, 2000.0, 2000.0, 12.0 


Let C be the cash down payment in full 


Let D be the down 
payment and M the monthly payment for N 


months. 
Principal owed to shopkeeper each month is: 
1st month = C-D 
2nd month = C-D-M 
Nth month = (C-D)-(N-1)M 
Principal owed for one month 
P = (C-D)+(C-D-M) - ((C-D)-(N-1)M) 
Interest charged = (D+M.N)-C 


Rate of interest % = 1200 x (D*MN-C)/P 
The following program implements this algorithm. 


EXERCISE 9.6 
REAL INSTALMENT,INTEREST 
READ(*,* )CASH, DOWNPAY, INSTALMENT,NOOFMONTHS 


INTEREST = DOWNPAY + FLOAT(NOOFMONTHS) * INSTALMENT - CASH 
MONTH = 1 


PRINCIPAL = CASH - DOWNPAY 
SUMPRINC = PRINCIPAL 

MONTH = MONTH + 1 

PRINCIPAL = PRINCIPAL — INSTALMENT 
SUMPRINC = SUMPRINC + PRINCIPAL 

IF (MONTH .LT. NOOFMONTHS) GO TO 10 
RATE = 1200 * INTEREST / SUMPRINC 
WRITE(*,*)'RATE OF INTEREST-',RATE 
STOP 

END 


9.7 Points to be observed: 


1. Magnitude of x to be made less than T so i 
will converge faster SUMA A 


Sin (x - 2n7 ) = Sin x 


2. The series is computed using the recurrence relation 
for Sin x series 


(N+1) Term х2п+1 (2п-1)! 
N Term х2п-1 (2п+1) ! 
х2 
(2n+1) (2n) 


3. Convergence criterion is based on the sum of series not 
changing when a new term is added. The allowed error 
EPSILON is read in as data. The relative error is 
(term/series sum) 


с EXERCISE 9.7 
с X ТО BE REDUCED TO LESS THAN PI 
READ(*,*)X,EPSILON 
PI = 3.14592 
IF (ABS(X) .GE. PI) THEN 
IF (X .GT. 0) THEN 
X = AMOD(X,2 * PD 
ELSE 
X = -(AMOD(X,2 * PD) 


М = 
10 DENOM = FLOAT((2 * М) * (2 * N + 1) 

TERM = TERM * FACTOR / DENOM 

SUM = SUM + TERM 

IF (ABS(TERM / SUM) .LE. EPSILON) THEN 
WRITE(*,*)'SIN(X)=',SUM,'TERMS =',N 
S = SIN(X) 
WRITE(*,*)'EXACT VALUE OF SIN(X)=',S 
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20 


10 


10 


20 


ERROR = ABS((SUM - S) * 100.6) 
WRITEC,*)' PERCENT ERROR',ERROR 
GO TO 20 

ELSE 
N=N+1 
GO TO 10 

ENDIF 

STOP 

END 


EXERCISE 9.8 
READ(*,*)X 


FT = LOE X * Х/2.0-+=х—*> 4/24.0 - 0.25 * SIN(X) ** 2 
ү SOS TX 


IF (Y .LT. 0) GO TO 10 

F2 = SQRT(Y) 

ESEL + F2 

WRITE(*,*)'FUNCTION =',F 

STOP 

F2 = SQRT(-(Y)) 

WRITE(*,*)'REAL PART OF FUNCTION =',F1 


WRITE(*,*)'IMAGINARY PART OF FUNCTON =' F2 
STOP 
END 


EXERCISE 9.9 

REAL NUMERATOR 
READ(*,*)X,MAX 

T = - SQRT(X) 

NET 

NUMERATOR = T 

S = NUMERATOR /2.0 

IF ( N .EQ. MAX) GO TO 20 
NUMERATOR = NUMERATOR * T 
S = S + NUMERATOR /FLOAT(N * (N + 1)) 
М-Ммеі 

GO TO 10 
WRITE(*,*)'S='",S,'TERMS=',N 
STOP 

END 


10 


20 


30 


510 


25], 


RULES 


1 
tt 
|| RUGEL RULE2 RULE3 RULE4 
tt 
Wie.) а MN ТЕМЫ ECL + 
DEPOSIT || « 1000 » 1000 » 5000 - 
E « 5000 
nH 
tt 
YEARS |! 
========= |3! 
l 
ІМТЕКЕЅТ!! 5% 7% 8% 10% 
RATE |! 
11 
tt 


The decision table above sets a default rate of interest at 
3:5 We thus do this first in the program. We then check 
rule 4 as the deposit amount can be anything. After doing 
this we set up the program to implement rules 1, 2 and 3. 


EXERCISE 9.10 
INTEGER CUSTOMERNO 
READ(*,*)CUSTOMERNO,DEPOSIT,NYEARS 
IF (CUSTOMERNO .EQ. 0) GO TO 30 
RATE = 3 
IF (NYEARS .GE. 5) THEN 

RATE - 10 

GO TO 20 
ENDIF 
IF (NYEARS .GE. 2) THEN 

IF (DEPOSIT .LT. 1000.0) THEN 


RATE = 5 
ELSE IF (DEPOSIT .LT. 5000.0) THEN 
RATE = 7 
ENDIF 
ENDIF 


IF (DEPOSIT .GE. 5000.0) THEN 

IF (NYEARS .GE. 1) THEN 

RATE = 8 

ENDIF 
ENDIF 
BALANCE = DEPOSIT * (1.0 + RATE /100.0) ** NYEARS 
WRITE(*,*)'CUSTOMER NUMBER DEPOSIT.NO OF YEARS,BALANCE' 
WRITE(^,")CUSTOMERNO,DEPOSIT,NYEARS,BALANCE ( 
GO TO 10 
WRITE(*,*)'END OF CUSTOMER DATA' 
STOP 
END 
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Program checks if specified maximum iterations exceeded. 


Use Newton Raphson technique 


f(x) = Sin x - x*1 
E(x) cos x-1 
Iterative formula is: 


f(xi) 


A Же атан 
DEL, ы ркі) 


starting value to Бе picked so that f L (Ses) 


during iterations. 


is mot zero 


Starting value x = 0.25 


specifies allowed error limit. 


с 


10 


20 


.12 


EXERCISE 9.11 
READ(*,*)X,EPSILON,MAXITER 
ITER = 0 

FX = SIN(X) - X + 1.0 
FPX = COS(X) - 1.0 

XNEW = X - FX / FPX 


EPSILON 


IF (ABS((XNEW - X)/XNEW) .LE. EPSILON) GO TO 20 


X = XNEW 
ITER = ITER + 1 


IF (ITER .GE. MAXITER) THEN 
WRITE(*,*)'DOES NOT CONVERGE IN ',ITER,'ITERATIONS' 


WRITE(*,*)X,FX 

STOP 
ELSE 

GO TO 10 

ENDIF 
WRITE(*,*)'X=',X,'F(X)=',FX 


WRITE(*,*)'NO. OF ITERATIONS-',ITER 


STOP 
END 


Rounding rules: 


If last digit «5 then truncate it. 
If last digit >5 then add 1 to last but one digit 


If last digit - 5 then truncate if last bu 
Add 1 to last but one digit if it is оаа. 


Given the number is a 


Example: 1.452 x 1000 
Mod (1452,10) 


4 


Ш 


t one digit is even. 


digit number »1 and «2, 


1452 
last digit. 


10 


20 


30 


EXERCISE 9.12 
INTEGER THOUSX,HUNDX 


READ GIVEN NUMBER INTO X,NO.OF X'S — NOOFXS 


N=0 
READ(*,*)NOOFXS 
READ(*,*)X 
THOUSX = X * 1000.0 
LASTDX = MOD(THOUSX,10) 
IF (LASTDX .GT. 5) THEN 
HUNDX = X * 100.0 
HUNDX = HUNDX + 1 
ROUNDX = FLOAT(HUNDX)/100.0 
ELSE IF (LASTDX .LT. 5 ) THEN 
HUNDX = X * 100.0 
ROUNDX = FLOAT(HUNDX)/100.0 
ELSE 
HUNDX = X * 100.0 
NEXTD = MOD(HUNDX,10) 
IF (MOD(NEXTD,2) .EQ. 0) THEN 
ROUNDX = FLOAT(HUNDX)/100.0 
ELSE 
ROUNDX = FLOAT(HUNDX + 1)/100.0 
ENDIF 
ENDIF 
WRITE(*,')'ROUNDED VALUE OF X =',ROUNDX 
МЕМ+Т 
IF (М ТТ. NOOFXS ) GO TO 10 
STOP 
END 


EXERCISE 9.13 
N= 0 

READ(*,*)NOOFDATA 
READ(*,*)X,A,B,C,D 

IF (X - D) 10,20,30 

EG A ` X * X PB * X 410 
GO TO 40 

FX = 0 

во то 40 

EX Z = A 2 X тво 
WRITE(*,*)'F(X) =',FX 

N=N +1 

IF ( N .LT. NOOFDATA) GO TO 5 
WRITE(*,*) 'END OF DATA' 

STOP 

END 
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CHAPTER X 


с EXERCISE 10.1 
REAL INSTALMENT,INTEREST 
READ(*,*)CASH,DOWNPAY,INSTALMENT,NOOFMONTHS 
INTEREST = DOWNPAY + FLOAT(NOOFMONTHS) * INSTALMENT = CASH 
PRINCIPAL = CASH - DOWNPAY 
SUMPRINC = PRINCIPAL 
DO 25 MONTH = 1,NOOFMONTHS 
PRINCIPAL = PRINCIPAL — INSTALMENT 
SUMPRINC = SUMPRINC + PRINCIPAL 
25 CONTINUE 
RATE = 1200 * INTEREST / SUMPRINC 
WRITE(*,*)'RATE OF INTEREST =',RATE 
STOP 
END 


с EXERCISE 10.2 
REAL NUMERATOR 
READ(*,*)X,MAX 
T = -SQRT(X) 
NUMERATOR = T 
S = NUMERATOR/2.0 
DO 20 N = 2,MAX 
NUMERATOR = NUMERATOR * T 
5 = S + NUMERATOR/FLOAT(N * (N + 1)) 


20 CONTINUE 
WRITE(*,*)'Sz', S," TERMS-',N 
STOP 
END 

с EXERCISE 10.3 


INTEGER A(5,5),AT(5,5) 
READ(*,*)((AG,J);1 = 1,3),7 = 1,5) 
DO 26 I = 18 


DO 25 J = 1,5 
АТ(ЈЛ) = А(1,Ј) 
25 CONTINUE 
WRITE(*,28)((AT(I,J),I = 1,5),J = 1,3) 
28 FORMAT(5I3/) 
STOP 


END 


25 


20 


30 


10 
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EXERCISE 10.4 
INEFFICIENT SIMPLE METHOD 
DIMENSION M(10,10) 
READ(*,*)((M(I,J),I = 1,3),Ј = 1,5) 
DO 25 I = 1,8 
DO 25 J = К,4 
DO 25 J = K ‚з 
IF (M(LK) .LT. M(LJ + 1)) THEN 
ITEMP = M(LK) 
M(LK) = МАЈ + 1) 
M(LJ + 1) = ITEMP 


ENDIF 
CONTINUE 
WRITE(*,*)((M(I,J),I = 1,3), = 1,5) 
STOP 
END 


EXERCISE 10.5 
DIMENSION HEIGHT(100) 
READ(*,*)NOOFSTUD 
READ(*,*)(HEIGHT(I),I = 1,NOOFSTUD) 
SUMHT = 0 
DO 20 I = 1, NOOFSTUD 

SUMHT = SUMHT + HEIGHT(I) 


CONTINUE 


AVEHEIGHT = SUMHT /FLOAT(NOOFSTUD) 
SUMSQ = 0 
DO 30 I 1,NOOFSTUD 


DIFF (HEIGHT(I) - AVEHEIGHT) 
SUMSQ = SUMSQ + DIFF * DIFF 


CONTINUE 
VARIANCE = SUMSQ /FLOAT(NOOFSTUD + 1) 


STDDEV = SQRT(VARIANCE) 
WRITE(*,*)'AVERAGE НЕІСНТ=',АУЕНЕІСНТ 
WRITE(*,*)'VARIANCE =', VARIANCE 
WRITE(*,*)'STANDARD DEVIATION=',STDDEV 
STOP 

END 


EXERCISE 10.6 
INTEGER FREQ(20),LIFETIME(200),HILIM 


READ(*,*)N,LOLIM,HILIM, INTERVAL” 
OPEN(5,FILE = 'DAT106.FOR') 
READ(5,*)(LIFETIME(I),I = 1,N) 

NOINTERV = (HILIM - LOLIM + 1)/INTERVAL 
DO 10 I = 1,NOINTERV + 2 


FREQ(I) = 0 
CONTINUE 
po 50 I = LN 


LTEST = LOLIM 
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40 


50 


60 


20 


THIS LOOP PUTS DATA IN CORRECT FREQUENCY SLOT 
DO 40 J = 1,NOINTERV + 1 
IF (LIFETIME(I) .LT. LTEST) THEN 
FREQ(J) = FREQ(J) + 1 
GO TO 50 
ELSE 
LTEST = LTEST + INTERVAL 
ENDIF 
CONTINUE 
FREQ(NOINTERV + 2) = FREQ(NOINTERV + 2) + 1 
CONTINUE 
WRITE(*,*)' FREQUENCY TABLE 
WRITE(*,*)'INTERVAL NO. NUMBER IN INTERVAL' 
DO 60 I = 1,NOINTERV + 2 
WRITE(*,*) I,FREQ(I) 
CONTINUE 
STOP 
END 


EXERCISE 10.7 
DIMENSION X(10),Y(10) 


READ(*,*)N 
READC,*)X(O),Y(O),I = LN) 
SUMX = 0 

SUMY = 0 

SUMXSQ = 0 

SUMYSQ = 0 

SUMXY = 0 

DO 20 I 1,N 


SUMX = SUMX + X(I) 
SUMY = SUMY + Уб) 
SUMXSQ = SUMXSQ + X(I) * ХО) 
SUMYSQ = SUMYSQ + YQ * үй) 
SUMXY = SUMXY + X(I) * Y(D 
CONTINUE 
RN = N 
= (RN * SUMXY - SUMX * SUMY) 
B = B/(RN * SUMXSQ - SUMX * SUMX) 
A = (SUMY - B * SUMX) RN 
SYX = SUMYSQ - A * SUMY - B * SUMXY 
SYX = SQRT(SYX/(RN - 2.0)) 
RNUM = (RN * SUMXY - SUMX * SUMY) 
RDEN = RN * SUMXSQ - SUMX * SUMX 
RDEM = SQRT(RDEN * (RN * SUMYSQ - SUMY * SUMY)) 
R = RNUM/RDEM 
WRITE(*,*)'A=',A,'B=',B,'SYX =',SYX,'R=',R 
STOP 
END 
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с EXERCISE 10.8 
с MATRIX MULTIPLICATION 
DIMENSION A(10,10),B(10,10),PROD(10,10) 
READ(*,)(A(,J),I = 1,22), = 1,3) 
READ(*,*)((B(I,J),I = 1,3,1 = 1,2) 
DO 20 K = 12 
ро 20 I = 1,2 
PROD(K,I) = 0 
ро 20 J = 1,3 
PROD(K,D = PROD(K,I) + A(K,J) * B(J,D 
20 CONTINUE 
WRITE(*,*)'A MATRIX' 
DO 30 I = 1,2 
30 WRITE(*,*) (A(,J),J = 1,3) 
WRITE(*,*)'B MATRIX’ 
DO 40 I = 18 
40 WRITE(*,*)(R(1,J),J = 1,2) 
WRITE(*,')'PRODUCT MATRIX' 
ро 50 I = 1,2 
50 WRITE(*,*)(PROD(I,J),J = 1,2) 
5ТОР 
END 


CHAPTER XII 
12.1 (i) Ѕіпһ-1 (x) = оде (x+ (x2 + 1)1/2) 


FORTRAN FUNCTION 


SINHINV (X) = ALOG (X + SQRT (X*X + 1.0)) 


(ii) F (X,Y) = SQRT (X*X + Y*Y) 


С EXERCISE 12.2 
READ(*,*)X 
A = F(X) 
МЕТЕ) X 
STOP 
END 
FUNCTION F(X) 
IF (X - 2.0) 10,20,30 


10 Е = 2.0 * X * X_+ 3.0 * + 40 
RETURN 

20 F=0 
RETURN 

30 F = = 2.0 * X * X + 3.0 *Х = 40 
RETURN 


END 
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С EXERCISE 12.3 

READ(*,*)X 

A = F(X) 

WRITE(*,*) 'F(X) = ҚА 

STOP 

END 

FUNCTION F(X) 

TERM = X * X/2.0 

F = 1.0 - TERM 

DO 20 I = 1,5 
TERM = TERM * X * X/FLOAT((2 * I + 2) * (2 * I + 1)) 
F = F + TERM 


20 CONTINUE 
RETURN 
END 

с EXERCISE 12.5 


SUBROUTINE MULTIPLY(SIZE,A,B,PROD) 
DIMENSION A(10,10),B(10),PROD(10) 
INTEGER SIZE 

DO 20 К = 1, SIZE 


PROD(K) = 0 
DO 20 J = 1,SIZE 
PROD(K) = PROD(K) + A(K,J) * B(J) 
20 CONTINUE 
RETURN 
END 
с CALLING PROGRAM 


DIMENSION X(10,10), Y(10),P(10) 
READ(*,*)((X(I,J),I = 1,3),J = 1,3) 
READ(*,*)(Y(D,I = 1,3) 

CALL MULTIPLY(3,X,Y,P) 
WRITE(*,*)(P(I),I = 1,3) 

STOP 

END 


с EXERCISE 12.6 


DIMENSION X(6,6),Y(6),D(6,6),P(6) 
[o] FORM AN IDENTITY MATRIX 


ү(7-1) = 2.0 ** К 
С ү IS THE MULTIPLYING VECTOR 


20 


25 


30 
35 


20 


10 
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CONTINUE 
DO 25 J = 1,6 
CALL MULTIPLY(6,X,Y,P) 
DO 25 I = 1,6 
Y(I) = у 2 
D(J,) = РО) 
CONTINUE 
DO 35 I = 1,6 
WRITE(*,30)(D(I,J),J = 1,6) 
FORMAT(6F8.4/) 
CONTINUE 
STOP 
END 
SUBROUTINE MULTIPLY(SIZE,A,B,PROD) 
INTEGER SIZE 
DIMENSION A(6,6),B(6),PROD(6) 
DO 20 K = 1,SIZE 
PROD(K) = 0 
DO 20 J = 1,6 
PROD(K) = PROD(K) + A(K,J) *.B(J) 
CONTINUE 
RETURN 
END 


EXERCISE 12.7 
SUBROUTINE TRACE(MATRIX,SIZE,TR) 
REAL MATRIX(10,10) 
INTEGER SIZE 
TR = 0 
DO 10 I = 1, SIZE 

TR = TR + MATRIX(LI) 
CONTINUE 
RETURN 
END 
CALLING PROGRAM 
DIMENSION A(10,10) 
READ(*,*)((A(LJ),I = 1,8), = 1,3) 
CALL TRACE(A,3,T) 
WRITE(*,*)'TRACE =',T 
STOP 
END 


EXERCISE 12.8 
SUBROUTINE TO FIND THE NORM OF MATRIX 


SUBROUTINE NORM(MATRIX,SIZE, ANORM) 
REAL MATRIX(10,10) 
INTEGER SIZE 


=1 
ТЕМР = ТЕМР + MATRIX(1,J) ** 2 
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10 ` CONTINUE 
ANORM = SQRT(TEMP) 
RETURN 
END 

с CALLING PROGRAM 


DIMENSION X(10,10) 
READ(*,*)((X(I,J),I = 1,3),J = 1,3) 
CALL NORM(X,3,P) 
WRITE(*,*)'NORM OF X=',P 

STOP 

END 


EXERCISE 12.9 
SUBROUTINE FOR SORTING TEN NUMBERS 
IN ASCENDING ORDER OF MAGNITUDE 
SUBROUTINE ASCEND(A,N) 
DIMENSION A(10) 
DO 25 K = 1,N - 1 
DO 25 J = K + 1,N 
IF (A(K) .GT. A(J)) THEN 

T = A(K) 

A(K) A(J) 

A(J) T 

ENDIF 

25 CONTINUE 

RETURN 

END 
c CALLING SUBROUTINE 
DIMENSION B(10) 
READ(*,*)(B(I),I = 1,10) 
CALL ASCEND(B,10) 
WRITE(*,*)'VECTOR B IS UNSORTED' 
WRITE(*,*)(B(D,I = 1,10) 
CALL ASCEND(B,10) 
WRITE(*,*)' VECTOR B IN ASCENDING ORDER' 
WRITE(*,*)(B(I),I = 1,10) 
STOP 
END 


ооо 


СНАРТЕК ХІІІ 


13.1 Algorithm 


Read Number 

Big < Number 

For i = 2 to 10 

Read Number 

if Number > Big then Big «— Number 
End 


Address of 


Instruction 


ат 


TET 


a2 


OP 
Code Operand 
9 100 
9 101 
9 102 
6 103 
T 101 
3 100 
6 101 
8 017 
9 102 
1 103 
3 102 
8 014 
7 005 
1 102 
6 103 
7 005 
10 103 
11 000 
аз aoe 
b3 
Read a4 
Read by 
сі «= ај + bi 
i € itl 


Address of 
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с(100) = 
C(101) =— 39 COUNT 
C(102) < Number 

C(103) < М (103) €—Big 
АСС06<- С(101) 9 

АСС «—AC- C(100) 


C (102) <— Number 
ACC —— BIG 
ACC € BIG - Number 


Display Big 


810 
ls stored in 
b10 
АЁ stored in 


If (10-i) «0 Then job over else go to 1 


09 
09 
09 
09 
01 
02 


90 
91 
100 
110 
100 
110 


c(90) — 1 
c(91) <— 9 
c(100) <— ay 
€(110) <— by 
АСС €<—a 

ACC < а1+Ь1 
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007 06 131 Сі < a4*b4 
008 10 131 Output C4 

009 01 91 ACC <— 9 
010 03 90 ACC — 9-1 
011 06 91 c(91) — 8 
012 08 32 
013 01 003} 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 


Address modification 
90} 


003} 
004} 
90} 
004} 
005 
90 
005 
006 
90 
006 
007 
90 
007 
008 
090 
008 
003 
000 


NP о № 


ва юҥ ONE соо ОЕ DO 


P 


EXERCISE 13.1,13.2 & 13.3 

SMAC SIMULATOR 

DIMENSION MEMRY(600) 

MLOC = 1 

OPEN(UNIT = 7,FILE ='DATEX182.FOR') 
READ(7,*)LOCN,IOP,IADDR 

THE MACHINE LANGUAGE IS READ AND STORED IN MEM 
LOCN = 0 INDICATES END OF MACHINE LANGUAGE PRO 
EACH INSTRUCTION IS PACKED IN ONE LOCATION 


INSTRUCTIONS ARE STORED IN SUCCESSIVE LOCATIONS 
IF (LOCN) 22,26,20 


MEMRY(MLOC) — IOP * 1000 4 IADDR 

MLOC = MLOC + 1 

GO TO 10 

WRITE(*,24)LOCN,IOP,IADDR 

FORMAT(2X,13,'ERROR IN DATA',3X,13,1X,12,9X,13) 
STOP 

EACH INSTRUCTION IS NOW UNPACKED, DECODED AND 
CLOSE(7) EXECUTED 
INCTR = 1 

ТОР = MEMRY(INCTR)/1000 

IADDR = MEMRY(INCTR) - IOP * 1000 

INCTR = INCTR + 1 


ORY(MLOC) 
GRAM 


101 
102 
103 
104 


105 


106 


61 


COMPUTED GO TO STATEMENT DECODES OPERATION CODES 
IF (IOP .GT. 20) GO TO 59 
GO TO (31,32,33,84,85,36,37,38,39,50,61),IOP 
IACC = MEMRY(IADDR) 
GO TO 28 
IACC = IACC + MEMRY(IADDR) 
GO TO 28 
IACC = IACC - MEMRY(IADDR) 
GO TO 28 
IACC = IACC * MEMRY(IADDR) 
GO TO 28 
IACC = IACC / MEMRY(IADDR) 
GO TO 28 
MEMRY(IADDR) = IACC 
GO TO 28 
INCTR = IADDR 
GO TO 28 
IF (IACC .LT. 0) INCTR = IADDR 
GO TO 28 
WRITE(*,")'ENTER NO.' 
READ(*,*)MEMRY(IADDR) 
GO TO 28 
WRITE(*,55)MEMRY(IADDR) 
FORMAT(5X,I5) 
GO TO 28 
NEWOP - IOP - 20 
GO TO (101,102,103,104,105,106)NEWOP 
IACC = IACC + IADDR 
GO TO 28 
IACC = IACC - IADDR 
GO TO 28 
IACC = IACC * IADDR 
GO TO 28 
IACC = IACC / IADDR 
GO TO 28 
IF (IADDR .GE. 5) THEN 
IACC = 0 
ELSE 
IACC = IACC /(10 ** IADDR) 

ENDIF 
GO TO 28 
IF (IADDR .GE. 5) THEN 

IACC = 0 
ELSE 

ТАСС = MOD(IACC,10 ** (5 – IADDR)) * 10 ** IADDR 
ENDIF 
GO TO 28 
STOP 
END 
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Exercise 13.4 


The procedure for dispensing the required stamp and 
change is best formulated using decision tables. 
are shown below: 


returning 
The decision tables 


Table 1 : Select Stamp 
Amount Tendered |} < Stamp Cost 
1 


Stamp requested | 
available? | 


================== ! 
Amount insuffi- || 
cient 11 
Return amount tt 
Dispense stamp tt 
No stamp tt = 
Hi 
tt 
Li 
Hi 


Go to CHANGE 
Tabte 
STOP 


Amount |.  50/50| 50! 50| 50 | Eo Isa oenen „кыла eaan 
tendered 


Stamp cost 
25ps.avai- 
.. lable? 
l10ps.avai- 
lable? 
5ps.avai- 
lable? 


No.of 25ps. 
returned 
No.of 10ps. 
returned 
No.of 5ps. 
returned 
Dispense 


No change 
"Return 
amount _ 
STOP 


problem that nor ы еее 
coins of the same denomination are ен More than 2 


aS change, 


T 
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EXERCISE 13.4 STAMP VENDING MACHINE SIMULATION 
INTEGER AMOUNT,STAMP,CHANGE(3),ACODE,SCODE,PS25,PS10,PS5 
COMMON AMOUNT,STAMP,PS25,PS10,PS5,SCODE,CHANGE,NOOFSTAMPS 
DIMENSION NOOFSTAMPS(4) 
READ(*,') ( NOOFSTAMPS(I),I = 1,4 ) 
READ(*,*) ( СНАМСЕ() І = 1,3 ) 
DO 999 К! = 1,6 
READ(*,*) AMOUNT,STAMP 
IF (AMOUNT.LT.STAMP) THEN 
WRITE(*,*) ‘INSUFFICIENT AMOUNT' 
WRITE(*,*) 'AMOUNT RETURNED = ',AMOUNT 
GO TO 999 
ENDIF 
IF (STAMP.EQ.20) THEN 
SCODE - 1 
ELSEIF (STAMP.EQ.15) THEN 
SCODE = 2 
ELSEIF (STAMP.EQ.10) THEN 
SCODE = 3 
ELSEIF (STAMP.EQ.5) THEN 
SCODE = 4 
ELSE 
WRITE(*,*) ‘STAMP REQUESTED NOT STOCKED' 
GO TO 999 
ENDIF 
IF (NOOFSTAMPS(SCODE).EQ.0) THEN 
WRITE(*,') STAMP,'Ps. STAMP EXHAUSTED' 
WRITE(*,*) AMOUNT,'PS. RETURNED' 
GO TO 999 
ENDIF 
IF (AMOUNT.EQ.STAMP) THEN 
WRITE(*,*) STAMP,'Ps. STAMP DISPENSED' 
NOOFSTAMPS(SCODE) = NOOFSTAMPS(SCODE) - 1 
GO TO 999 
ENDIF 
IF (AMOUNT.GT.STAMP) THEN 
WRITE(*,')' CHECKING CHANGE' 
ENDIF 
PROGRAM BELOW CHECKS CHANGE AND DISPENSES STAMP 
IF (AMOUNT.EQ.50) THEN 
ACODE = 1 
ELSEIF (AMOUNT.EQ.25) THEN 
ACODE = 2 
ELSEIF (AMOUNT.EQ.10) THEN 
ACODE = 3 
ELSE 
WRITE(*,*) 'WRONG COIN' 
GO TO 999 
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ENDIF 
PS25 = 0 
PS10 = 0 
PS5 = 0 
MTOTAL = CHANGE(1)'25 + CHANGE(2)'10 + СНАМСЕ(3)*5 + STAMP 
IP (AMOUNT.GT.MTOTAL) GO TO 99 
IF (AMOUNT.EQ.25) THEN 
CHANGE(1) = CHANGE(1) + 1 
ENDIF 


IF (AMOUNT.EQ.10) THEN 
CHANGE(2) = CHANGE(2) + 1 
ENDIF 
GO TO (50,25,10) ACODE 
50 GO ТО (20,15,11,5) SCODE 
с **RULE 1 OF DECISION TABLE*'* 
20 IF (CHANGE(1).GE.1) THEN 
IF (CHANGE(3).GE.1) THEN 
PS25 = 1 
PS5 = 1 
CALL DISPENSE 
GO TO 999 
ENDIF 
ENDIF 
с **RULE 2 OF DECISION TABLE'* 
IF (CHANGE(2).GE.2) THEN 
IF (CHANGE(3).GE.2) THEN 
PS10 = 2 
PS5 = 2 
CALL DISPENSE 
GO TO 999 
ENDIF 
ENDIF 
**RULE 3 OF DECISION TABLE'* 
15 IF (CHANGE(1).GE.1) THEN 
IF (CHANGE(2).GE.1) THEN 
PS25 = 1 
PS10 = 1 
CALL DISPENSE 
GO TO 999 
ENDIF 
ENDIF 
с **RULE 4 OF DECISION TABLE** 
IF (CHANGE(1).GE.1) THEN 
IF (CHANGE(3).GE.2) THEN 
PS25 = 1 
PS5 = 2 
CALL DISPENSE 
GO TO 999 
ENDIF 
ENDIF 


с **RULE 5 ОЕ DECISION TABLE** 
11 IF (CHANGE(1).GE.1) THEN 
IF (CHANGE(2).GE.2) THEN 
IF (CHANGE(3).GE.1) THEN 


PS25 — 1 

Р510 = 1 

PS5 = 1 

CALL DISPENSE 
GO TO 999 

ENDIF 
ENDIF 
ENDIF 
с **RULE 6 ОЕ DECISION TABLE** 


5 IF (CHANGE(1).GE.1) THEN 

IF (CHANGE(2).GE.2) THEN 
PS25 = 1 
PS10 = 2 
CALL DISPENSE 
GO TO 999 

ENDIF 

ENDIF 
с **RULE 7 OF DECISION TABLE** 


IF (CHANGE(1).GE.1) THEN 
IF (CHANGE(2).GE.1) THEN 
IF (CHANGE(3).GE.2) THEN 
Р525 = 1 
Р510 = 1 
Р55 = 2 
CALL DISPENSE 
GO TO 999 
ENDIF 
ENDIF 
ENDIF 


с **RULES 8 ТО 13 OF DECISION TABLE** 1 


26 GO TO (201,151,101,51) SCODE 
с **RULE 8 OF DECISION TABLE** 
201 IF (CHANGE(3).GE.1) THEN 
PS5 = 1 
CALL DISPENSE 
GO TO 999 


ENDIF 
с **RULE 9 OF DECISION TABLE** 


151 IF (CHANGE(2).GE.1) THEN 

PS10 = 1 
CALL DISPENSE 
GO TO 999 

ENDIF 

с **RULE 10 OF DECISION TABLE** 

IF (CHANGE(3).GE.2) THEN 
Р55 = 2 
CALL DISPENSE 
GO TO 999 
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234 


с 
101 


51 


ENDIF 
*SRULE 11 OF DECISION TABLE 
IF (CHANGE(2).GE.1) THEN 
IF (CHANGE(3).GE.1) then 
PS10 = 1 
PS5 = 1 
CALL DISPENSE 
GO TO 999 
ENDIF 
ENDIF 
**RULE 12 OF DECISION TABLE** 
IF (CHANGE(2).GE.2) THEN 
PS10 = 2 
CALL DISPENSE 
GO TO 999 
ENDIF 
**RULE 13 OF DECISION TABLE** 
IF (CHANGE(2).GE.1) THEN 
IF (CHANGE(3).GE.2) THEN 
Р510 = 1 
PS5 = 2 
CALL DISPENSE 
GO TO 999 
ENDIF 
ENDIF 
**RULE DECISION TABLE** 


- 10 IF (SCODE.EQ.4) THEN 


IF (CHANGE(3).GE.1) THEN 
Р55 = 1 
CALL DISPENSE 
GO TO 999 
ENDIF 
ENDIF 


* Е NO RULE IS SATISFIED THEN CONTROL COMES HERE** 


99 CALL NOCHANGE 
999 CONTINUE 


WRITE(*,*) 'END OF DATA' 
STOP 
END 


SUBROUTINE DISPENSE 

INTEGER AMOUNT,STAMP,CHANGE(3),NOOFSTAMPS(4) 
COMMON AMOUNT,STAMP,I,J,K,M,CHANGE,NOOFSTAMPS 
WRITE(*,*) 'STAMP DISPENSED',STAMP,'Ps.' 


C 13 FORMAT(1X,14 ) 


22 


WRITE(*,22) LJ,K 
FORMAT( 1X,'CHANGE RETURNED 25Ps. = ',13,' 10Ps, = 
118 ) 


= '13/ SPs. 


16 


17 


18 


13.5 


CHANGE(1) CHANGE(1) - I 
CHANGE(2) CHANGE(2) - J 
CHANGE(3) = CHANGE(3) - К 
NOOFSTAMPS(M) = NOOFSTAMPS(M) - 1 
RETURN 

END 


SUBROUTINE NOCHANGE 

INTEGER AMOUNT,STAMP 

COMMON AMOUNT,STAMP 

WRITE(*,16) AMOUNT 

FORMAT( 1X, AMOUNT TENDERED = ',12,'Ps.' ) 
WRITE(*,17) STAMP 

FORMAT( 1X,'STAMP REQUESTED = '12,'Рѕ.' ) 
WRITE(*,*) 'INSUFFICIENT CHANGE' 
WRITE(*,18) AMOUNT 

FORMAT( 1X,'AMOUNT RETURNED = 'I2,'Ps.' ) 


RETURN 
END 
Use Codes as follows 
Product code : Engine - 1 
Fan = 2 
Ритр - 3 
Customer code: Retailer e 
Distributor = 2 
Govt.Agencies = 3 


Use decision table shown below: 


«500 2500 52500 «500 7500 72500 


0.075 0.1 0.125 


. 075 


235 


236 


10 


EXERCISE 13.5 
INTEGER CUSTNO,PRODUCT,CODECUST,ACODE 
COMMON CUSTNO,AMOUNT,DISCOUNT 
READ(*,*)CUSTNO,PRODUCT,CODECUST,AMOUNT 
IF (CUSTNO .EQ. 0) GO TO 999 
CUSTOMER NO = 0 INDICATES END OF INPUT 
** RULE 8 OF DECISION TABLE** 
IF (PRODUCT .EQ. 1 ) THEN 

DISCOUNT - 0.05 

CALL BILL 

GO TO 10 
ENDIF 
AMOUNT CODIFIED BELOW 
IF (AMOUNT .LT. 500.0) THEN 


ACODE = 1 
ELSEIF (AMOUNT .LT. 2500) THEN 
ACODE = 2 
ELSE 
ACODE = 3 
ENDIF 


GO TO (20,130,240), CODECUST 

CUSTOMER CODE = 1 FOR RULES 1,2 AND 3 
GO TO (50,60,70) ACODE 

** RULE 1 OF DECISION TABLE ** 
DISCOUNT - 0.05 

CALL BILL 

GO TO 10 

** RULE 2 OF DECISION TABLE ** 
DISCOUNT - 0.075 

CALL BILL 

GO TO 10 

"° RULE 3 OF DECISION TABLE ** 
DISCOUNT = 0.1 

CALL BILL 

GO TO 10 

** CUSTOMER CODE = 2 FOR RULES 4,5,6 
GO TO (180,190,200), ACODE 


** RULE 4 OF DECISION TABLE** 
DISCOUNT = 0.075 


CALL BILL 

GO TO 10 

** RULE 5 OF DECISION TABLE** 
DISCOUNT = 0.1 

CALL BILL 

GO TO 10 

** RULE 6 OF DECISION TABLE** 
DISCOUNT = 0.125 

CALL BILL 

GO TO 10 
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** RULE 7 OF DECISION TABLE** 

DISCOUNT - 0.075 

CALL BILL 

GO TO 10 

WRITE(*,*)'END OF CUSTOMER DATA' 

STOP 

END 

SUBROUTINE BILL 

INTEGER CUSTNO 

COMMON CUSTNO,AMOUNT,DISCOUNT 
NETAMOUNT = AMOUNT * (1.0 - DISCOUNT) 
WRITE(*,*)'CUSTOMER NUMBER',CUSTNO,'AMOUNT-',AMOUNT 
WRITE(*,*)'NETAMOUNT =',NETAMOUNT 
RETURN 

END 


CHAPTER XIV 


14.1 


The decision table is reproduced for ready reference: 


Conditions 


Ye 


Main Marks 


Anc. 


Special Status 


Marks 


Repeat Anc. 


Fail 


کک ڪڪ M‏ 


aaaaa 


П 
1 
! 
D 
! 
1 
і 
! 
! 
| 
i 


EXERCISE 14.1 ILLUSTRATES USE OF LOGICAL VARIABLES 
MAIN IS THE MARKS IN THE MAIN SUBJECT 

ANCRY IS THE MARKS IN THE ANCILLARY SUBJECT 
STATUS IS T IF STATUS IS SPECIAL 

ROLLNO = 0 INDICATES END OF RECORDS 
INTEGER ROLLNO,ANCRY 

LOGICAL STATUS,C1,C2,C3,C4,C5,PASS, REPEAT 
READ(*,10) ROLLNO,MAIN,ANCRY, STATUS 

FORMAT( 3(I3,1X),L1 ) 

IF (ROLLNO.EQ.0) GO TO 999 

C1 = MAIN.GE.50 

C2 = MAIN.GE.40 
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= MAIN.GE.60 
C4 = ANCRY.GE.50 
C5 = ANCRY.GE.40 


PASS = (Cl.AND.C5).OR.(C2.AND.C4).0R.(C2.AND.C5.AND.STATUS) 


REPEAT = (C3.AND..NOT.C5).OR.(C2.AND..NOT.C5.AND.STATUS) 
IF (PASS) THEN 


WRITE(*,20) ROLLNO,MAIN, ANCRY,STATUS 


20 FORMAT( 1X,316,3X,L6,2X,'PASS' ) 


GO TO 5 
ENDIF 
IF (REPEAT) THEN 
WRITE(*,30) ROLLNO,MAIN, ANCRY,STATUS 


30 FORMAT( 1X,316,3X,L6,2X,'REPEAT STATUS' ) 


GO TO 5 
ENDIF 


WRITE(*,40) ROLLNO,MAIN,ANCRY,STATUS 


40 FORMAT( 1X,316,3X,L6,2X,'FAIL' ) 


GO TO 5 


999 WRITE(*,*) 'END OF DATA' 


с 


STOP 
END 


EXERCISE 14.2 PROGRAM TO FIND ELIGIBILITY FOR ADMISSION 
INTEGER STUDNO;BDAY,BMONTH,BYEAR,SPECDA Y,SPECMONTH 
1SPECYEAR,DAYDIFF,MONTHDIFF,YEARDIFF 3 
LOGICAL C1,02,08,04,05 —— 

STUDNO = 0 INDICATES END-OF STUDENT DATA 

READ(*,10) SPECDAY,SPECMONTH,SPECYEAR 


10 FORMAT( 212,14 ) 


THE DATE IS GIVEN AS 05061987(DAY,MONTH,YEAR) 


15 READ(*,20) STUDNO,BDAY,BMONTH,BYEAR 
20 FORMAT( 14,2X,212,14 ) 


30 


40 


99 


IF (STUDNO.EQ.0) GO TO 99 

DAYDIFF — SPECDAY - BDAY 

MONTHDIFF = SPECDAY - BMONTH 

YEARDIFF = SPECYEAR - BYEAR 

Cl = (YEARDIFF.GT.5) 
= (YEARDIFF.EQ.5) 

C8 = (MONTHDIFF.GE.1) 
= (MONTHDIFF.EQ.0) 
= (DAYDIFF.GE.0) 

IF (C1.0R.(C2.AND.C3).0R.(C2.AND.C4.AND.C5)) THEN 
WRITE(*,80) STUDNO,BDAY,BMONTH,BYEAR 
FORMAT( 1X,14,2X,12,'-',12,'-',14,2X,'ADMIT" ) 

ELSE 
WRITE(*,40) STUDNO,BDAY,BMONTH,BYEAR 
FORMAT( 1Х,14,2Х,12,'—'12,'—'14,2Х,'00 NOT ADMIT" ) 

ENDIF 

GO TO 15 

WRITE(*,*) 'END OF РАТА! 

STOP 

END 


14.2 The decision table for the problem is given below: 


Specified year - Birth year 


Specified month - Birth month 


Specified day - Birth day 


с EXERCISE 14.3 
C ONE LOOP IS USED TO COMPUTE EXP(X),SIN(X),COS(X) 


INTEGER SIGN 
LOGICAL SX,CX,EX 
READ(C*) X 


2,100 
(TERM * X) / I 
EXPX EXPX + TERM 
IF (MOD(I,2) .EQ. 0) THEN 
SIGN = - SIGN 
COSX = COSX + SIGN * TERM 
ELSE 
SINX = SINX + SIGN * TERM 
ENDIF 
SX = (ABS(SINX - BSINX) .LE. 0.5D-10) 
CX - (ABS(COSX - BCOSX) .LE. 0.5D-10) 
EX = (ABS(EXPX - BEXPX) .LE. 0.5D-10) 
IF (SX .AND. CX .AND. EX) GO TO 25 


Ш 


20 CONTINUE 

25 WRITE(*,30)1 

30 FORMAT(1X,'NUMBER OF TERMS COMPUTED =',13) 
WRITE(*,40) 

40 FORMAT(10X,'BUILT-IN DEXP(X)' 10X,'COMPUTED EXP(X)') 
WRITE(*,50) BEXPX,EXPX 

50 FORMAT(6X,D21.12,8X,D21.12) 


WRITE(*,60) . 


DOUBLE PRECISION TERM,X,EXPX,SINX,COSX,BEXPX,BSINX,BCOSX 
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10 


20 


FORMAT(10X,'BUILT-IN DSIN(X)',10X,'COMPUTED SIN(X)') 
WRITE(*,70) BSINX,SINX 

FORMAT(6X,D21.12,8X,D21.12) 

WRITE(*,80) 


. FORMAT(10X,'BUILT-IN DCOS(X)',10X,'COMPUTED COS(X)') 


WRITE(*,90)BCOSX,COSX 
FORMAT(6X,D21.12,8X,D21.12) 
STOP 

END 


EXERCISE 14.4 

READ(*,*)XREAL, XIMAG,ZREAL,ZIMAG 

CALL SQUARE(XREAL, XIMAG,XSQR,XSQI) 

CALL SQUARE(ZREAL,ZIMAG,ZSQR,ZSQI) 

SXZR = XSQR + ZSQR 

SXZI = XSQI + ZSQI 

WRITE(*,*)'REAL PART OF X ** 2 + Z ** 2=',SXZR 
WRITE(*,*)'IMAGINARY PART OF X ** 2 + Z ** 2 z'SXZI 
CALL MAGNITUDE (XREAL,XIMAG,XMAG) 
CALL MAGNITUDE (ZREAL,ZIMAG,ZMAG) 
RESULT = XMAG / ZMAG 
WRITE(*,*)'XMAG / ZMAG =',RESULT 
STOP 

END 

SUBROUTINE SQUARE(XR,XI,XSR, XSI) 
XSR = XR * XR - XI * XI 

XSI S2 * XR. ХІ 

RETURN 

END 

SUBROUTINE MAGNITUDE(XR,XI,XM) 
XM = SQRT(XR * XR + XI * XD 
RETURN 

END 


EXERCISE 14.5 

OBJECT TIME FORMATTING 

CHARACTER * 24 FORM1 

READ(*,10)FORM1 

FORMAT(A24) 

READ(*,FORM1)A,B,J 

WRITE(*,20)A,B,J Е 
FORMAT(1X,5X,'A=',E15.8,3X,'B=',F8.3,2X,'J=',16) 
STOP 

END 


14.5 


14.7 


Data 


(i) 


(ii) 
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'(5X,E15.8, Е8.3, I6)' 
(i) DATA І,А,В,М/2, 10.85, 0.584E15, ТВОЕ. / 


(ii) DIMENSION A(10), M(10) 
DATA A,M,X,I/ 10*2.0,10*0,10.8,5/ 


Storage ОБА 
A(1,1), A(2,1), A(3,1), A(4,1), A(1,2), A(2,2), A(3,2) 


в(1), B(2), B(3) B(30) 
Storage of C | 
смт), са. са», CCAD CNS, >), CO2 === есес. 


C(5) 5th element of C 


A(15) = A(3,4) 
A(3,4), B(10) and C(5,1) occupy same location 


MAIN SUB 

jx) | ХУ | 

= کے 

| aga) | (2) 1 

(= pos | 

Жыға OD 

| š | Я i 

je je prem s 

! A() | Х(8) | B(1,1) | 

ве | -===== j = === ! 

1 A(9) | X(9) | B(2,1) | 

|------ |n = ! 

| A(10)1 X(10)! B(1,2) | 

pe sss = а s om ! 

ЕНЕГЕ ІІ ЕЖ 

:------ ессе eee | 
| B(1,3) | 
үз ! 
| B(2,3) 1 
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Not valid as the 
equivalencing 


(iii) 


14.7 


extends COMMON 
area upwards 


A 


Algorithm 3 
Arithmetic expression 59 
Arithmetic logic unit 27 
Arithmetic operators 58 
Arithmetic statement 65 
modes of 66 
mixed mode 185 
Assignment operator 65 


B 


Blank field 140 


€ 


Calling 
Function subprogram 151 


Subroutine 156 
Central Processing Unit 27 
CLOSE statement 148 


COMMENT line 45 
COMMON 

declaration 158,191 
Compiler 29 
Computed GO TO 109 
Computer 

model of 4 

programs 28 
Constants 

integer 5T 

logical 181 

real 52 
Continuation line 35 
Control statements 85 
Control unit 27 


Index 
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244 
D 


DATA statement 186 
Decision table 23 
DIMENSION statement 1:24: 
Display of messages 75 
DO statement 115 

domain of 116 

nested 124 

restriction in writing 124 
DO type input/output 130 


E 


ENDFILE statement 36 
ENDIF statement 87 
EQUIVALENCE declaration 189 
Exponent 52 
Expression 

Arithmetic 59 

Integer 59 

Logical 182 

Real 60 


E 


Field 137 
Flow chart 3 
Tracing of 10 
Format 
А 145 
Double precision 185 
Logical 185 4 
E (for reals) 139 
F (for reals) 139 
H (for characters) 143 
I (for integer) 138 
messages 142 
multirecord 143 
Format free input statement 72 
Format free output statement 72 
Format specification 137 
at execution 188 
FORMAT statement 157 
Fortran 30 
Function-Built in Fortran 67,196 
Function subprogram 151 


€ 


GO TO statement 97 


1 


IF statement 85 
Arithmetic 108 
Nested 98 
Then Else 87 

IMPLICIT statement 188 

Input unit 21: 

Integer expression 59 


L 


List (of variables) 137 
List directed 
Input statement 72 
Output statement 74 
Logical expression 86,182 
Logical statement 87 


M 


Machine language 27 
program 169 

Mantissa 52 

Memory 27 


о 


Object program 29 
OPEN statement 148 
Operators 
arithmetic 58 
assignment 35 
hierarchy of 61,183 
logical 182 
relational 86 
OUTPUT unit 27 
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246 
R 


READ statement 35. 72,138 
Record 137 

Real expression 60 
RETURN statement 152 


Б. 


Simulation program (for SMAC) 
SMAC 164 


Source program 29 
Special characters 31 
Statement 
executable 97 
non-executable 97 
number 44,98 
labels 44,98 
STOP statement 36 
Subroutine 155 


Subscripted variables 119,121 


Subscripts 120 
Syntax rules 29 


I 


Type declaration 55,184 
character 145 
double precision 184 


integers and reals 55,184 
logical 181 


у 


Variable name 35 
integer 53 
logical 181,183 
real 54 

Video display unit 34 


W 


WRITE statement 36,74,138 
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